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urn AM 

ELETTONICA (2) 



COMO USAR PROGRAMA 



CONSULTE CALENDARIO 



CONSULTE A AGENDA 

DIGITACAO DOS PRIMEIROS DADOS 
VERIFIQUE AS LISTAS 



Festividades, aniversirbs, encontros, 
reunioes... Vxe costuma esquecer-se 
dos Gompromissos? Anime-se: com 
a agenda e o calendario eletronicos 
voce nunca mais passara vergonha. 



Carregado na memoria o programa 
da li<pao anterior, digite as linhas aqui 
apresentadas. O computador pergunta- 
ra se alguma lista de dados ja foi grava- 
da. Como isso ainda nao aconteceu, res- 
ponda N. O programa mostrara entao 
menu principal com nove opgoes: 

1. Consultar o calendario mensal 

2. Consultar o calendario anual 

3. Consultar a agenda 

4. Rever/editar finan^as 

5. Rever/editar encontros 

6. Rever/editar celebra^oes 

7. Rever/editar feriados 

8. Gravar as listas 

9. Sair do programa 

Pode-se consultar o calendario sem 
digitar nenhum dado previamente. Va- 
mos come?ar por ele, 



CONSULTE CALENDARIO 



Escolha a opcao 1 e sera possi'vel ver 
calendario de qualquer mes dentro dos 
limites do programa. A lista de meses €,-. 
na realidade, bastante grande. Ela vai 
de 1753, quando o calendario gregoria- 
no foi adotado na Gra-Bretanha, ate 
29999. O mes deve ser sempre escolhi- 
do pelo numero (de 1 a 12) e nao pelo 
nome. 

Se voce dispuser de uma impressora, 
pode opiar por trabalhar com uma co- 
pia impressa do calendario, Caso con- 
trario, ele sera apresentado apenas na te- 
la, O nome do mes, bem como o ano, 
e mostrado no tope da tela, com os dias 
logo abaixo. A sem ana come^a com o 
domingo, que e colocado na cor verme- 
Iha em alguns computadores. A data da 
P^scoa sera calculada automaticamen- 
te e mostrada no rodape, se cair no mes 
escolhido (mar?o ou abril). 

Muilas coisas podem ser feitas duran- 



te a consulta ao calendario mensal. A 
lista de op?oes aparece no rodape da tela 
ou na pdgina anterior, conforme o mi- 
cro. Teclar <BREAK>, <ESCAPE> 
ou < CLEAR > levari voce de volta ao 
menu principal. Outras teclas permitem- 
Ihe avan^ar ou retroceder de mes em 
mes. Spectrum usa as teclas Z e X; 
o TRS-Color, as setas para cima e para 
baixo; e o Apple e o MSX, as setas pa- 
ra a esquerda e para a direita. 

As outras teclas com fungoes no pro- 
grama sao as seguintes: $, que serve pa- 
ra destacar dados referentes a finangas; 
E, utilizada para encontros; C, parace- 
lebragoes, e F, para feriados. Mas nada 
acontecera ate que alguns dados sejam 
introduzidos no computador. 



ESCREVA NA AGENDA 



A opijao 3 leva-o para a agenda. Mas, 
antes, e necessario entrar alguns dados. 



Assim, escolha a optpao adequada a par- 
tir do menu principal, 

Qualquer que seja a oppao, tecle A 
para adicionar urn dado, D para apagar 
e M para retornar ao menu. 

Como j^ foi descrito, a segao de fi- 
naneas oferece as op?6es Mensal, Tri- 
mestral, Anual ou entrada linica. Faga 
a opfao teclando a letra Inicial corres- 
pondente (M, T, A ou U). Em seguida, 
o programa pede que voce entre um no- 
me ou frase com um maximo de vinte 
letras, e que descreva o evento com sua 
respectiva data. 

Para um dado recorrente, esta seria 
a primeira vez que ele acontece (o pri- 
meiro aluguel pago, por exempio). O 
programa completa automaticameme os 
meses seguintes com os dados adequa- 
dos. Apontamentos e feriados sao tra- 




tados como eventos unicos, e celebra- 
foes, como eventos anuais. Use esta op- 
(pao para comemorafoes como aniversa- 
rios de nascimento e de casamento etc. 

Pode-se executar at^ 150 entradas em 
cada categoria. 

Mas, para fazer tudo isso, sera pre- 
cise esperar as rotinas do proximo arti- 
go. Esse artigo apresentar^ tambcm a 
parte final do programa, que permitira 
gravar, carregar e imprimir dados, con- 
cluindo o processamemo. 



165 GOSUB 1400: IF KB=1 THEN 

GOSUB 1690 
1120 PAPER 0: INK 7 
1130 LET KS=" 123456789" : GOStlB 
1460: LET C-KB: RETURN 
1140 LET KK=KB 
1150 LET KB-KK: GOSUB 1330 
1160 LET B=QtKK): E'OH y = 4 TO 20 
: PRINT AT y.OjZS: NEXT y: PBIN 
T AT -1,0 

1170 IF B-0 THEN GOTO 1210 
llBO FOR N=l TO B 
1190 LET KS-LStKK,N): LET K2-N: 

GOSUB 1370 
1200 NEXT N 

1210 LET KS="adlii": GOSUB 1480: 
LET A=KB 

1220 FOR 1=1 TO 100: NEXT I 
1230 IF AOl THEN GOTO 1280 
1240 LET K2-B; LET T7-KK: GOSUB 

1550; LET V$<=STR$ T7: GOSUB 14 
00 

12 50 LET WS=STBS DA: IF LEN WS= 
1 THEN LET WS="0"+WS 
1260 LET VS = VS+WSt LET UIS=STR$ 
MO: IF LEN WS-1 THEN LET WS= 
"0 ■■+US 
1270 LET US=US+W$+STR$ YR : 

LET IS tKK,n+i)=v3+£ia: le:t <i 

(KK)=Q<K K}+1 

1280 ir A02 THEN GOTO 1310 
1 29fl INPUT "APAGAH OUAL 
NUMERO (MTN 1 ) " : NN : TF NN<1 
OB NM>B THEN GOTO 1290 

nno FOR /:=NN+] to B: let 

LS(KK .Z- tHL5 (KK,Z) : NEXT 

Z: let Q(K K)=QfKK)-l 

l.llO [p A<>3 THEN GOTO U60 

I .120 RETURN 

n30 PRINT "Lists de Dadoa" 

'TS( KB) 

134 PRINT AT 0,l7j INVER 
SE 1;" S"; INVERSE Or "OMAR 
"; 1NUER3E I ; "A" ; INUERSE 
: " PAGAR " ; INVERSE 1 r "M" ; 
INVERSE Oj'ENU" 

135 PRINT AT 3,0; 
1360 RETURN 

I3?0 LET FS=L5(KK,K2) : 
LET E$=P $(VAL FS< TO I) ) 
+""+F5(Z TO 3)+ ";"+FS(4 
TO 5}+" :"+FS{6 TO 9) 
1380 PRINT ESl" ";FStlO 
TO 30) 
1390 RETURN 

«1 1400 LET B5="": LET VP = 5 



1410 INRUT "Qual o nome 7 {Max 

22 iRtraa)" LINE D9 

14 20 LET VP=VP-1 

1430 PRINT AT VP , : ■• - ; 

1440 INPUT "DATA SIGNIFICATIUA 

r'iDA: IF DA<I OR DA>31 THEN G 

OTO 1430 

1450 CiOSUB 2510 

1460 LET KB-HOr GOSUB 270: IF D 

A>KB THEN GOTO 14 30 

1470 LET KS-BSr GOSUB 1520: LET 

YS-K3: RETURN 
1480 LET a3-lNKEY3: IF a$-"" TH 
EN GOTO 1480 

1490 FOR n-1 TO LEN KS : IF aS<> 
KSCn) THEN NEXT n 
1500 IF n>LEN KS THEN GOTO 148 


1510 LET KB-n; RETURN 
1520 LET PP-{INT (XH/100) -.1 7) «1 
6+MO 

1530 LET K2-100: LET QQ-FN MCYB 
) 
1540 LET KS-CHHS PP+CHRS QQ+K5 : 

RETURN 
1550 IF T701 THEN GOTO 15S0 



1560 PRINT AT 20,0; INVERSE 1;" 
M"! INVERSE Oi"ENSAL ": INVERSE 

l;"T'i INVERSE 0:"RIMESTRAL "; 

INVERSE l;"A"i INVERSE : "NUAL 

"l INVERSE li'U"; INUERSE ; "N 
ICO" 
1570 LET KS«"lPt3u": GOSUB 1460: 

PRINT AT 20,0iZ$: PRINT AT 3,0 
;: LET T7-KB: GOTO 1600 
1580 IF T7-3 THEN RETURN 
1590 LET T7-4 
1600 RETURN 

1610 CLS : PRINT FLASH 1 ; AT 10 
,5 J 'PREPARE GRAVADOH" 
1620 IF INKEYSO'" THEN GOTO J 
620 

1630 SAVE "dadoB" DATA QO 
1640 FOR N=l TO 4 
1650 IF Q(N)-0 THEN GOTO 1670 
1660 FOR M-1 TO OtN): LET OS(l) 
-L${N,M); SAVE 'dadoa" DATA 0$ ( 
) : NEXT M 
167 NEXT N 
1680 RETURN 
1690 CLS ; PRINT AT 10,5; FLASH 

li" PREPARE GRAVADOH" 
1700 LOAD "dadoB" DATA Q{) 
1710 FOR N-1 TO 4 
1720 IF Q(N)'0 THEN GOTO 1740 
1730 FOR M-1 TO Q CN) : LOAD "dad 
oh" DATA OSO: LET LS(N,M)=0S(1 
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) : NEXT M 
1740 NEXT N 
1750 RETURM 



Q 



ELSE FOR PP=>NN+1 TO B:HS(KK. 

PP-1)-LIS{KK,PP) : NEXT: LIS (KK.O) 

-STRS(B-l) 

1310 IF A03 THEN 1210 

RETURN 

REM 

PRINT TYS (KB) 



"LISTA CORRE 



115 KBS-"SN"rGOSUB 1590 : IF KB-1 

GOSUB 16 70 
1180 HEM 

1190 N-0:A-O:B-0;KK»'KB 
1200 KB-KK:GOSUB 1330 
1210 REM 

1220 FOR UU-l TO 14 ; PRINT eyU«3 
2rNEXT:PRlNT 832,""; 
1230 B-VAL(LISCKK.O)) 
1240 IF B-0 THEN 1280 
1250 FOR N-1 TO B 

1260 KBS-LIS{KK,N) :K2-N:GOSUB 1 
410 

1270 NEXT 

1260 KBS-"ADM" :GOSOB 1590:A-KB 
1290 IF A=l THEN T7=KK:G0SUB 16 
80:GOSUB 1490 : LIS (KK ,B+1) -CHR$ { 
T7)+T8Si LIS (KK, 0) -MIDS {STRS (B+l 
>.2) 

1300 IF A-2 THEN INPUT'QUE NOME 
RO";NN:IF NNCl OR NN>B THEN 130 



FOB ¥-2 TO 14 
PRINT eY«32 



1320 

1330 

1340 

NTE" 

1350 

1360 

1370 NEXT 

1360 PRINT 

TAR mENU" ; 

1390 PRINT 632, 

1400 RETURN 

1410 'OP 

1420 N2-0;BB$-- 

1430 FOR N2-1 TO 

N2,l)="" THEN CO(N2)-0 ELSE 

N2) -ASC(MID$ (KB3,N2.1) ) 

1440 NEXT 

1450 BBS-MIDS{PAS,C0(lJ*4-3,4) 

1460 K2-16:DD$-MIDS<ST»3CC0f2) ) 

,2>+'':"+MlDS{STR$(FNM(CO(3)n ,2 

)+":"+MID$(STR$((FIX(CO{3)/16>+ 

17)*100+CO(4)) ,2) 

1470 PRINT MID3(STRS(K3} ,2) ;" " 

iBBS;" ";DDSl" "; RIGHTS (KBS . LEN 

(KBS)-4) 



«480,"aDICIONAn dELE 



:DDS-"":K3-K2 
4: IF MIDS(KBS. 
C0( 



1480 RETURN 

1490 'ADICIONAR UNA ENTRADA 
1500 B3S-"'':VP-0 
1510 PRINT-A SER CBAMAD07 (MAX 
22 LETRAS) " :LINE INPUT B3S 
1520 UP-INT{ (PEEK (136) "256-t-PEEK 
(137)-1024)/32) 
1530 PRINT §VP»32,""; 
1540 PRINT-DATA SIGNIFICATIVA 
? " 

i550 INPUT- D1A;":DA:IF DA<1 
OR DA>31 THEN 1530 
1560 GOSUB 2750 
1570 KB-MO:dOSUB230:IFDA>KB 
THEN 1530 

1580 KB$-B3S:G0SUB 1630;T8S 
-KBS : RETURN 
1590 REM 

1600 B$-rNKEYS:IF BS-*" 
THEN 1600 

1610 KB-INSTR(1.KBS,BS) : 
IF KB-0 THEN 1600 
1620 RETURN 
1630 REM 
1640 PP=0:QQ=0 
1650 PP" (FIX(YR/100)-17} 
•16+MO 
1660 K2-100:QQ-FNM(yR) 
1670 KBS-CHHS<DA>+CHRS( 
PP)+CHR$ {QQ)+LEFTS[KBS 
.22) : RETURN 
1680 REM 

1690 IF T7-0 THEN PRINT 
"MENSAL, THIMESTRAL.ANU 
AL OU UNICO":KBS- "MTAU 
": GOSUB 1590 :T7-KB: GOTO 
17 20 

1700 IF T7-2 THEN T7-3; 
GOTO 1720 
1710 T7-4 
17 20 RETURN 
1730 REM 
1740 N-0:P-0 

1750 OPEN'O-.f-li'DIARlO" 
1760 FOR N-0 TO 3 
1770 M=VAL{LIS{N,0> ) 
i780 PRINT #-l.LISCN,0) 
1790 IF M-0 THEN 1640 
IBOO FOR P-1 TO M 
ISIO FOR J-1 TO 4 :PRINTt-l ,STRS 
tASC(MlDS<LISCN.P) , J,l)) ):NEXTJ 
1820 PRINT i-l,MID$(LIS(N.P) ,5) 
1830 NEXT P 
1640 NEXT N 
1850 CLOSE 1-1 
1860 RETURN 
1870 REM 

ISBO N-0:P-0:M-0 
1890 OPEN'l'.t-l.-DIARIO" 
1900 FOR N-0 TO 3 
1910 LINE INPUT ♦-l.LI$(N,0) 
1920 M-VAL(L1S(N,0)) 
1930 IF M-0 THEM 1980 
1940 FOR P-1 TO M 
1950 FOR J-1 TO 4:INPUT|-1,NNS: 
LIS (N , P) -LIS (N , P) +CHRS {VAL CNNS) 
J :NEXT J 

1960 LINE INPUT #-1 , NNS : LIS (N. P 
)-LIS(N.P)+NNS 
1970 NEXT 
1960 NEXT 
1990 CLOSE 1-1 
2000 RETURN 



u 



20 APUCACOiS 20 



2010 'CAL.ANUAL 

Z020 MA-OrAA-O 

2030 INPUT-ANO:"!YIl;IF 5fH<1753 

OR lfB>29999 THEN 2030 ELSE GOSU 

B 650 

2040 GOSUB 2720 :CLS 

2050 PBINT'ANO " ; YH 

2060 IF P-2 THEN PRINT t-2,"AN0 

2070 PRINT #-P:KB-0: GOSUB 2150: 

PRINT*-P 

2080 GOSUB 2660 

2090 FOR MO-1 TO 12 

2100 PRINT *-P,MID5{MNS,M0*9-8, 

9) 

2110 T2-5:S2-0: GOSUB 2240 

2120 IF P-0 ANB INKEYS'"" THEN 

2120 

2130 NEXT 

2140 RETURN 

2150 REM 

2160 X2-0:C2-0:D2-0 

2170 IF KB-0 THEN X2-7 

2180 IF P-2 THEN KB-KB+1 

2190 PRINT |-P,STRINGSCX2,323 i 

2200 FOR D2-0 TO 6 

2210 PRINT #-P,STRINGSCKfl," ")+ 

mD$(DN5.D2*3+l,3) ; 

2220 NEXT 

2230 RETURN 



fffi 



8M 



115 KBS-"SN" : GOSUB 1590: IF KB-1 

THEN GOSUB 1S7 
IIBO ' LISTAR E ATUALIZAH 
1190 N-0 :A=0:B"O^KK-KB 
1200 KB=KK: GOSUB 1330 
1210 REM 

1220 FOR UU-1 TO 21 ; LOCATE , UU 
: PRINTSPACES{ 38) j: NEXT: LOCATE 

.1 

1230 B-VALCLIS{KK.O)) 

1240 IF B»0 THEN 1230 

1250 FOB N-1 TO B 

1260 KBS-L-ISCKK,N) :K2-N:G03HB 1 

•410 

1270 NEXT 

UBO KBS-" ADM" : GOSUB I590rA-KB 

1290 IF A-I THEN T7-KK:G0SUB 16 

SO ; GOSUB 1490 : LIS (KK , B+1) -CHR$ C 

T/)+T8S :LtS (KK,0)-MIDS CSTRS{B+1 

) .2) 

1100 IF A=2 THEN INPUT "QUAL NO 

Mt:HO";NN:IF NN <1 OH NN>B THEN 

1300 ELSE FOR PP-NN+1 TO B:LIS( 

KK.PP-i)-LISlKK.PP3 : NEXT: LIS (KK 

,0) -STB5(B-1) 

IJIO IF A03 THEN 1210 

1320 RETURN 

1330 ' Imprioie cabecalho 

1 i40 PRINTTlfStKB),"Li Bta de dadna" 

1350 FOB Y-2 TO 21 

1360 LOCATEO,5f:PRINTSPACES(3B)i 

1370 NEXT 

1380 LOCATE S , 23 : PRINT" Adlclona 

r Dsletar Menu"; 

1390 LOCATE 0,1 

1400 RETURN 

1410 • OP 

1420 N2-0:BBS="" :DDS="" ;K3-K2 

14 30 FOR M2=l TO 4: IF MIDStKBS, 

N2,l)-"" THEN COtN2)-0 ELSE CO ( 



N2) =ASC (MIDS (KBS , N2 . 1) } 

1440 NEXT 

1450 BB$=KID$(PAS.C0(l)*4-3,4) 

1460 K2=16rDD3-MIDS(STaS{C0(2) ) 

.2)+" :"+MID3{STRS(FNMCCO(3n) ,2 

)+" :"+MIDS{STRS((FIX£C0t3)/16)+ 

17)*100+CO{4) } ,2) 

1470 PRINTMID3CSTR3(K3) ,2) :" " ; 

BBSr" "iDDS;" " J RIGHTS (KB$, L EN ( 

KB3)-4) 

1480 RETURN 

1490 ' Adiciona un dado 

1500 B33---:VP-0 

1510 PRINT-Rfltulo? (nax 20 letr 

as) ' :LINEINPUT B3S 

1520 PRINT 

1530 REM 

1540 PBINT'Data do compromiBBO ; 

1550 INPUT" Dia:";OA;IF DA<1 OR 

DA>31 THEN 1530 
1560 GOSUB 2750 

1570 KB-MO:GOSUB 230: IF DA>KB T 
HEN 1530 

1560 KBS»B33:GOSUB 1630rTaS"KBS 
: RETURN 

1590 ' Werif teclagem de caract 
er e coBpara com kbS 
1600 BS=INKEYS-IF BS-"" THEN 16 
00 

I&IO KB-INSTR(KBS.BS) :IF KB-0 T 
HEN 1600 
1620 RETURN 

1630 ' Codifjca informagio 
1640 PP=0:QQ-0 

1650 PP-{FIX(yR/100)-17)'»16+MO 
1660 K2-100:QQ-FNM{YR) 
1670 KBS-CHHSCDA)+CHBS(PP)+CHH3 
{QQ}+LEFT3(KBS,20) :RETUHN 
1660 ' verified tipo 
1690 IF T7=0 THEN PHINT'Menaal , 

Trimestral , Anual, Unico":KBS- 
"MTAU":GOSUB 1590 ; T7-KB:G0T0 17 
20 

1700 IF T7-'2 THEN T7'«3:G0T0 172 


1710 T7=4 
1720 RETURN 
1730 ' gravar dadoB 
1740 N-OiP-0 

1750 OPEN "DIARIO" FOB OUTPUT A 
S 11 

1760 FOB N-0 TO 3 
1770 M=UAL(L13£N.0}) 
1780 PRINT#1,LIS{N,0) 
1790 IF M-0 THEN 1640 
laOO FOB P-1 TO M 
1810 FOR J-1 TO 4:PRINTI1,3TR3( 
ASCCMIDS(LI3(N,P) ,J,1))) : NEXT 
1S20 PRINT#1,MID3(LIS(N.P) ,5) 
1830 NEXT 
1840 NEXT 
1650 CLOSEtl 
1860 RETURN 
1870 ' carreqar dados 
1880 N=0:P-0:M=0 
1990 OPEN "DIARIO" FOR INPUT AS 

• 1 
1900 FOE N-0 TO 3 
1910 LINE INPUTtl.LIS(N,0) 
1920 M=VAL(L13(N,0)) 
1930 IF M-0 THEN 1980 
1940 FOR P-1 TO M 



1950 FOR J-1 TO 4:INPUT«l,NN3iL 

15 <N . P) -LIS (N . P) +CHH$ (UAL {NN9) J 

:NEXT 

1960 LINE 1NPUT#1,NNS:LISCN.P)- 

LI$(N,P)+NN3 

197 NEXT 

1980 NEXT 

1990 CLOSEIl 

2000 RETURN 

2010 ' calenddrio anual 

2020 M4-0:A4-0 

2030 INPUT-Ano: "tYR:IF YR<1753 

OR YR>29999 THEN 2030 ELSE COS 
UB 650 

2040 GOSUB 2720 :CLS 
2050 PRINT'Ano " iYH 
2060 IF P-2 THEN LFBINT "Ano: " 
;yR:LPRINT 

2070 PBINT:KB-0:GOSUB 2150;PRIN 
T:IF P-2 THEN LPRINT 
2080 GOSUB 2660 
2090 FOR MO-1 TO 12 
2100 PRINTMIDS(MNS.MO*9-8,9) :IF 

P-2 THEN LPRINT MIDS tMN3 . M0*9- 
8,9) 

2110 T2=5:32-0:GOSUB 2240 
2120 IF P-0 AND INKEyS="" THEN 
2120 

2130 NEXT 
2140 BETUBN 
2150 ' HBpriine diaa 
2160 X2-0:C2-0:D2-0 
2170 IF KB-=0 THEN X2«7 
2180 IF P-2 THEN KB-KB+1 
2190 PRINTIP, STRINGS (X2, 32) ! 
2200 FOR D2=0 TO 6 
2210 PRINTIP. STaiNGS(KB," " ) +M 
IDS{DNS,D2*3+1,3) i 
2220 NEXT 
2230 RETURN 



[£ 



lis KB3 - "SN" : GOSUB 1590: IF 

KB-1 THEN GOSUB 1870 

1180 REM LISTAR E ATUALIZAR 

1190 N - 0:A = 0:B - : KK - KB 

1200 KB - KK: GOSUB 1330: POKE 

34.1: POKE 35,22 

1210 REM 

1220 HOME 

1230 B - VAL (LISCKK.O}) 

1240 IF B - THEN 1280 

1250 FOR N - 1 TO B 

1260 KB3 - LI$CKK,N):K2 - N: GO 

SUB 1410 

1270 NEXT 

12 90 KBS = "ADM"; GOSUB 1590: A 

» KB 

1290 IF A - 1 THEN T7 - KK : GO 

SUB 1660: GOSUB 1490 : LIS CKK ,B + 

1) - CHRS <T7) + TBSiLlStKK.O 
) - STRS (B + 1) : GOTO 1310 
1300 IF A - 2 AND B > THEN 
INPUT "QUAL NUMERO? *;NN: IF NN 

< 1 OB NN > B THEN 13 00 
1305 IF A - 2 AND B > THEN 
FOR PP - NN + 1 TO B:LIS(KK,PP 
- 1) - LI3£KK,PP): NEXT :LI3(KK 
,0) = STBS (B - 1) 
1310 IF A < > 3 THEN 1210 
1320 POKE 34,0: POKE 35.24: BE 
TURN 













20 APLICACOES 20 












1330 HEM CABECALHO 










1340 PRINT TlfSCKB).''LISTA COHR 






1 


ENTE" 




^^^----^^'T^^^^ i 


1350 REM 




1 


1360 CALL - 958 




___,.- — -^ L I 


1370 REM 






1380 VTAB 23: HTAB 5: PRINT "[ 




; 


AIDICIONAR [DJELETAB tM]ENU" 






1390 REM 




A. . » ^^^ 


1400 RETURN r^ 
1410 REM OP \ 


L^ ) 


^ 


— %j T'^B] 


1420 N2 - 0:BBS - 'VDDS = "":K\ 


l'i 


/' 


i-^JlAOi 


3 = K2 \ 
14 30 FOR N2 = 1 TO 4: IF MID$ \ 


^ ' *J>^^ 


(KB3,M2,1» = "" THEN C0tN2) - \ 


" ' 1 ■ .^^^^^^^I^^H^v^ J^^H^^^^^^^^^^B^^''^ 


^rJ^^WM^^^^ 


0: GOTO 144 




I^"^ Is^&^^Km^ 


1435 C0tN2) = ASC < MID$ tKBS ■ 




■r^^A>^^^^»r 


N2.1>) 




t ^ nimim' 


1440 NEXT 




^ - '•'^^ -^ 


1450 BBS - MIDS tPAS.COtl) * 6 

- 5.6} 
1460 K2 «= 16:DD3 - STBS (CO (2) 




^■iT) .?*« 


J + -:- + STR3 ( FN M{C0(3))) 


1 


+ ' : " + STR5 ( C INT ( ABS {CO ( 
3) / 16)) * 3GN (00(3) / 16) + 
17) * 100 + C0t4)) 


i , ■ dhM^, 




■PF ' I"****! 


1470 PRINT STRS (K3):" "|BB3! 




^^^^^^ .-.'**. mF 


" "jDDS:* "; RIGHTS (KB3, LEN C 


^^^^Hi^^to< ' ^^^v '^iji^L^^^^^^^^^^HC 


r^ >.*wj»A . ■ a,-am'- 


KBS) - 4) 




kT ^ V . 


14B0 RETURN 


T Ml Jk T A Tl„ 


-> T _i <rL B r a'^ wir 


1490 HEM ADICIONAR DADOS 


\m immj k v jz'» j i ni ma^ ^ ai wk i 


1500 B33 - "" -.VP - 




/Jf<- &9m 1 ■ m^ 


1510 PRINT -TITULO? tMAX 22 LE 


^^tWf yj ^ k W Mm 


TRAS>": INPUT B3S 


3»^ l}r^ v^Z-^ 


1520 REM 


■^^^^^^^^^^H^^4. .^S^^I^^Hb vKa 


■^^B^ M #if m .-J--*^ 


1530 PRINT 




3Bwfli»J»-*^^ 


1540 PRINT "DATA DE REFEHENCIA 

7' 

1550 INPUT " DIA:";DA: IF DA < 




PISMSM^*^ 






1 OH DA > 31 THEN 1530 






1S60 GOSUB 2750 






1570 KB - MO: GOSUB 230: IF DA 


1730 REM GRAVAR MATRIZ 


1980 NEXT 


> KB THEN 1530 


1740 N = 0;P = 


1990 PRINT DS; "CLOSE" 


1580 KB3 - B3$: GOSUB 1630 :Ta$ 


1750 PRINT DSrOPEN DIABIO" 


2000 RETURN 


- KBS: RETURN 


1755 PRINT D3; "WRITE DIAHIO" 


2010 REM CALENDAEIO ANUAL 


1590 HEM VERIF TECLAGEM DE CA 


1760 FOB N - TO 3 


2020 M4 - 0:A4 - 


RACT EM KBS E DEVOLVE POSICAO E 


1770 M = VAL (LIStN.O)) 


2030 INPUT '•ANO:"[YR: IF YB < 


M KB 


1780 PRINT M 


1753 OR YR > 29999 THEN 2030 


1600 GET BS:KB = 


1790 IF M » THEN 1840 


2040 GOSUB 650: GOSUB 2720: HO 


1610 FOR I = 1 TO LEN CKBS) : 


1800 FOR P ■= 1 TO M 


KE 


IF MID$ (KBS, 1.1) - BS THEN KB 


IBIO FOR J =• 1 TO 4: PRINT 3T 


2050 PRINT "ANO " ; YB 


- I 


RS ( ASC ( MIDS (LIS CN,P) , J,l) ) 


2060 IF P = 1 THEN PREPARAIMPH 


1615 NEXT : IF KB ■ THEN 160 


) • NEXT 


ESS 





1820 PRINT MIDS (LIStN,P),S) 


2070 KB = 0: GOSUB 2J 50 


1620 RETURN 


1830 NEXT 


20B0 GOSUB 2660 


1630 REM CODIFICAH INFORMACAO 


1640 NEXT 


2090 FOR MO = 1 TO 12 




18S0 PRINT DS; "CLOSE" 


2100 PRINT MIDS (MNS.MO • 9 - 


1640 PP = 0;CQ = 


1860 RETURN 


8.9) 


1650 PP - { INT CYR / 100) - 17 


1870 REM CARBEGAH DADOS 


2110 T2 - 5:S2 - 0: GOSUB 2240 


) * 16 + MO 


1880 N-0:P = 0:M'»0 


2120 IF P = THEN GET RS 


1660 K2 = 100:QQ = FN M(YR) 


1B90 PRINT 03; "OPEN DIARIO" 


2120 NEXT 


1670 KB$ - CHRS (DA) + CHBS ( 


1895 PRINT DSl'HEAD DIAHIO" 


2140 RETURN 


PP) + CHRS (QQ) + LEFTS (KBS, 


1900 FOR N - TO 3 


2150 REM IMPRTME DTAS 


22) : RETURN 


1910 INPUT LI3(N,0) 


2160 X2 - 0:C2 - : D2 = 


1680 HEM INDICA TIPO 


1920 M = VAL (LI$(N.O)) 


2170 IF KB - THEN X2 = 7 


1690 IF T? = THEN PRINT "ME 


1930 IF M - THEN 1980 


2180 IF P - 2 THEN KB = KB + 1 


NSAL. THIMESTHAL. ANUAL , UNICO" 


1940 FOR P = 1 TO M 




;KB$ = "MTAU" : GOSUB 1590 :T7 =■ 


1950 FOR J - 1 TO 4: INPUT NN$ 


2190 PRINT SPCC X2) 


KB: GOTO 1720 


:LIS{N,P) = LIStN.P) + CHRS ( 


2200 FOR D2 = TO 6 


1700 IF T7 = 2 THEN T7 = 3; GO 


VAL (NNS) > : NEXT 


2210 PRINT SPG( KB); MIDS (DN 


TO 1720 


1960 INPUT NNS:LIS(N,P) = LIS ( 


S.D2 • 3 + 1,3)! 


1710 T7 - 4 


N,P3 + NNS 


2220 NEXT 


1720 RETURN 


1970 NEXT 


2 230 RETURN 









PALETA ELET^ONDC A 
PARA O TK- 200© 



A imagina93o ao poder! Siga o lema das 
barricadas paristenses de 1968, 
e transforme seu video em uma tela de 
pintura, executando o programa 
deste artigo no velho e fiel TK-2000. 



Os programas elaboradores de grdfi- 
cos constituem uma das Ferramentas 
mais poderosas e versateis para os usua- 
rios de microcomputadores. E preciso 
notar, entretanto, que existem diversos 
tipos de programas graficos. Os mais co- 
muns permitem tra^ar graficos de ana- 
lise de dados, como hisiogramas, cur- 
vas, scgmentos circutares ("pizzas") 
etc.. e tern muitas aplicagoes em educa- 
gao, ciencias e negocios. 

Outro tipo de muita aceiia^ao con- 
siste nos programas "deseniiistas", que 
fazem desenhos livremente sobre a te- 
la, usando o teclado ou urn dispositivo 
de entrada grdfica ( "mouse" ou joy - 
stick) para deslocar um cursor grafico 
sobre o video. Esses prograrrias, dis- 
poniveis para a maioria dos microcom- 
putadores, principalmente para os que 
tern boa capacidade grafica e de impres- 
sao em cores (Spectrum, Apple, MSX, 
IBM, PC etc.), contam com um grande 
numero de recursos, tais como: figuras 
geometricas pre-programadas {circulos, 
elipses, retangulos etc.); "pinceis" de 
varias espessuras; cores para desenJnar 
e pintar; dispositivos para "cortar c 
colar" (retirar uma parte de um desenho 
e colocar em outro ponto da tela) e "ca- 
rimbar" (copiar uma parte de um de- 
senho em outro ponlo da tela); recur- 
sos para escrever titulos e textos com 
letras de diversos estilos e tamanhos 
etc. Programas como esses constituem 
uma verdadeira "paleta eletronica". Al- 
guns deles sao hem conhecidos; e o ca- 
se de Painl, Pami-Brush, Dr. Halo. 
Apple-Paint etc. 

O programa apresentado aqui perten- 
ce a essa categoria, embora seja muito 
mais simples. Ele permite a elaboragao 
de letreiros e graficos, empregando o 
conceito de cursor grafico. Os recursos 
de program ai;ao de que ele dispoe nao 
sao muito complexes, e consistirao num 
bom aprendizado para quern quiser co- 
nhecer o.s "truques" basicos usados em 
programas do mesmo tipo. 



COMANDOS SIMPLES 



A niosofia de operagao do programa 
e simples: ao ser inicializado, o progra- 
ma entra em modo grafico de baixa re- 



solu(;ao (GR) e coloca um cursor bran- 
co no canto superior esquerdo da tela. 
Ao pressionar as teclas correspondentes 
a cada comando, o usuario pode deslo- 
car o cursor sobre a tela, trocar sua cor, 
desenhar com a cor selecionada, apagar 
traces, desenhar blocos retangulares 
(preenchidos com cor) ou molduras (re- 
tangulos vazios) etc. Existem tambem 
comandos para escrever um texto em 
qualquer ponto da tela, em video dire- 
to ou video inverse. 

Comp6e-se, assim, uma ilustragao 
que depois pode ser fotografada direta- 
mcnte da tela — ou copiada — , em pre- 
to e brance, em uma impressora grafi- 
ca. Portanto, al^m de .ser uma diversao 
para quern quer apenas exercitar os seus 
dotes criaiivos na pintura, o programa 
e muito bem para a produg-ae de dispo- 
sitivos coloridos destinados a iUisirar pa- 
lestras, aulas, apresentagoes etc. 

O. cursor pode se movido pela tela, , 
usando-se as teclas t l-*e — . Para 
mudar sua cor, pressiona-.se a tecla C, 
e logo em seguida digita-se um dos nu- 
meros compreendidos entre e 6 (cada 
um deles corrcspondendo a uma das co- 
res disponiveis). 

Para tra^ar uma reta com a cor do 
cursor, pressiona-se a tecla <FIRE> e 
movimenta-se o cursor na direijao dese- 
jada. Para parar de tragar, aciona-se 
<F1RE> novamente. Assim, esse sis- 
tema de operagao serve ainda para apa- 
gar trechos de um desenho: basta sele- 
cionar a mesma cor do fundo para o 
cursor, e desloca-lo sobre a area que de- 
ve ser apagada. No TIC-2000, o joystick 
pode ser usado para movimentar o cur- 
sor e tambem para tragar retas, pois seu 
acionamento corresponde as teclas do 
cursor e a tecla <FIRE> . 

O programa tern oito comandos ape- 
nas (no final deste artigo vamos dar al- 
gumas "dicas" sobre como expandir o 
programa, adicionatido outros tipos de 
comandos). Eis aqui os citados coman- 
dos, em ordeni alfabetlca: 

B - traga uma borda na tela, na cor 
previamente indicada. 

C - muda a cor do cursor. Um nume- 
ro de a 6 ser^, entao, digitado. 

F - preenche toda a tela com a cor de- 
signada pelo cursor. 



1 - passa a aceitar um texto qualquer 
digitado pelo teclado, escrevendo- 
o em video inverso (letras escuras 
sobre fundo claro). O cursor gra- 
fico nao se desloca, permanecen- 
do na posigao inicial. Pressionan- 
do-se a tecla < RETUR.N > , o sis- 
tema volta ao modo grafico. 

R - retorna o cursor a sua posigao de 
partida (canto superior esquerdo 
da tela) e limpa o video. 

M - traga uma moldura (retangiilo va- 
zio) com a cor e posigao indicadas 
pelo cursor (o canto superior es- 
Querdo do retangulo ficara posi- 
.lOnado na localizagao do cursor). 
O programa solicita o comprimeri- 
to e a largura do retangulo (em pi- 
xels), que devem ser digitados se- 
parados por uma virgula. 

Q - traga um quadro (retangulo cheio), 
com a cor e posigao indicadas pe- 
lo cursor. O restante funciona co- 
mo no caso do comando M. 

T - passa a aceitar um texto qualquer 
digitado peio teclado, escrevendo- 
o em video direto ou normal (ou 
seja, letras claras sobre fundo es- 
curo). O restante funciona do mes- 
mo modo que no comando I. 

Depois que um texto for colocado em 
algum ponto da tela, deve-se evjtar pas- 
sar com o cursor sobre ele; do contra- 
rio, ele sera apagado. 



COMO FUNCIONA PROGRAMA 



O programa e dividido em quatro 
grandes se^'oes de processamento: 

A segao que vai da linha 50 ate a li- 
nha 60 inicializa todos os parametros 
usados no programa e prepara ao mes- 
mo tempo a tela inicial. 

A se(;ao que vai da linha 100 a 175 
aceita comandos atraves do teclado e ve- 
rifica qual foi a tecla pressionada. Se for 
um dos comandos vatidos, ela modifi- 
car^ OS parametros internes do progra- 
ma, ou chamara a rotina encarregada de 
executar a fungao desejada. 

A segao que vai da linha 180 a 2(K) 
serve para lestar se os limites da tela fo- 
ram uUrapassados pelo movimento do 
cursor, e traca no video um quadradi- 
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UMA FERRAMENTA DE DESENHO 



SELECAO DE CORES 



RETANGULOS E LINHAS 



MOLDURAS 



COMO USAR PROGRAMA 



OS COMANDOS B, C, F, I, R, 

M, Q E T 

CQMANDO BACKSPACE 

ENRIQUECA PROGRAMA 

COMECAR DE NOVO 



m § 




nho na cor vigente, na posipao indica- 
da (coordenadas do cursor). 

Finalmente, as linhas SOO a 900 con- 
tern diversas sub-rotinas de trabalho, 
que explicaremos mais adiante. 

Comecemos com a primeira sepao 
(nao a execute ainda; caso contrario, 
ocorrerd uma mensagem de erro): 



50 


GR: 


COLOR =• 


55 


LET 


FL=0:X«0;Y=0 


56 


LET 
815 


QX - 39: QY - 39: GOSUB 


60 


LET 


XL = 1: YL ■= 1: CL = : 




C - 


3; GOSUB 196 



rente do cursor (na primeira vez sera 
preto, ou COLOR = 0). 

A iinha 60 define as variaveis XL e 
YL, que servem para armazenar as ulti- 
mas coordenadas do cursor, atingidas 
antes das correntes (X e V), bem como 
a ultima cor CL, Ainda nessa Iinha, e 
definida a cor inicsal do cursor (C = 3), 
e a sub-rotina da Iinha 196 e chamada 
para tragar esse cursor em sua posigao 
inicial (0,0). 

Digite agora a seijao de entrada e teste 
(sem, contudo, apagar a scijao de entra- 
da anterior): 



A Iinha 50 estabelece o modo grafi- 
co de baixa resolufao (GR) bem como 
a cor inicial (preto) do cursor. A Iinha 
55 inicializa as variaveis FL (um indica- 
dor logico, que mostra se o modo de de- 
senharesta "ligado" ou "desligado"), 
X e Y (coordenadas correntes do cursor; 
note que X = e Y = correspondem, no 
TK-20O0, ^ posigao no canto superior 
esquerdo). 

A Iinha 56 define, por sua vez, as va- 
riaveis QX e QY, necessarias para a 
atuatjao da rotina da Iinha 815 (mostra- 
da mais adiante num dos segmentos do 
programa), que e responsavej por tra- 
car um bioco colorido. Quando as va- 
riaveis QX e QY sao igualadas a 39, co- 
mo neste caso, isso significa que a tela 
serd intetramente pintada com a cor cor- 



100 
105 

110 

115 

120 

125 

130 

140 

145 



GET AS: A 
IF A5="C" 
GOTO 100 
IF AS-"Q" 
GOTO 100 
IF AS="M" 
GOTO 100 
IF AS-'T" 
GOTO 100 
IF AS="I" 
GOSUB 500 
IF AS-"R" 
55 

IF AS^'B" 
- 1: X =■ 
815: X = 
100 

IF AS='F 
= 0: X = 
BIS: X = 
100 



= ASC (A$) 
THEN GOSUB 850 ; 

THEN GOSUB 600 : 

THEN GOSUB 650: 

THEN GOSUB 500: 

THEN INVERSE: 
: GOTO 100 
THEN HOME: GOTO 

THEN COLOR - C : TY 
: Y - : GOSUB 
XL: y = YL: GOTO 

' THEN COLOR = C : TY 
: Y = : GOSUB 
XL: 2 - YL: GOTO 



150 IF A • 112 THEN Y = 

GOTO 190 
155 IF A - 113 THEN Y = Y+1 : 

GOTO 190 
160 IF A » 8 THEN X = X-1: GOTO 

180 

165 IF A = 21 THEN X =• X+1 : GO- 
TO 180 

166 IF A <> 46 THEN GOTO 100 
170 IF FL - 1 THEN FL = 0: GOTO 

100 
172 IF FL - THEN FL - I 
175 GOTO 100 

A Iinha 100 usa um comando GET 

para permitir uma pressao a tecla e ar- 
mazenar o caractere correspondente em 
A$. Ao mesmo tempo, o valor ASCII 
desse caractere e determinado pela fun- 
gao ASC e guardado em A. 

Em seguida, as linhas 105 a 145 veri- 
ficam se o caractere digitado e C, Q, M, 
T, B, R, 1 ou F. Em caso positive, elas 
tomam as providencias necessarias pa- 
ra executar a fun^ao perdida, e retor- 
nam a Iinha 100 para receber mais um 
comando. 

Essa estrutura de programa caracte- 
riza, de fato, um lago sem fim (conhe- 
cido, neste caso, como la^o de entrada), 
que nao chega a ser um laQo de espera 
verdadeiro, pois o programa ficara pa- 
rado na Iinha 100 enquanto nenhuma te- 
cla for pressionada. 

As linhas entre 150 e 175 servem pa- 
ra verificar se uma das teelas de movi- 



T 




mentaijao do cursor foi pressionada. 
Aqui, temos que usar o valor ASCII pa- 
ra fazer a averiguagao, pois nao existe 
representafao grafica da tela para os 
cursores. Se a lecla tiver sido pressiona- 
da, o parametro Y (coordenada vertical 
do cursor) sera diminuido de uma posi- 
Qao, e programa saltara, entao, para 
a linha 190, que verifica se os limites da 
tela foram uhrapassados. Transforma- 
poes semelhantes de X e Y sao feitas, 
conforme a tecia de cursor seja pressio- 
nada. Mas nao execute o programa 
ainda. 



:OMECE A DESENHAR 



Adicione as linhas abaixo: 



180 IF X < THEN X - 
182 IF X > 39 THEN X = 39 
185 GOTO 196 
190 IF Y < THEN If = 

195 IF Y > 39 THEN Y - 39 

196 IF FL = 1 THEN GOTO 19B 

197 COLOR = CL: PLOT XL.YL 

198 LET CL = SCRN (X,Y) : COLOR 
= C: PLOT X,Y 

199 LET XL - X: YL = Y 

200 GOTO 100 

As linhas 180 a 185 avaliam se X ul- 
trapassou ou nao a borda da tela, 
mantendo-o nesse limite, caso isso tenha 



acontecido. As linhas 190 e 195 fazem 
o mesmo com Y. 

A linha 196 verifica se o cursor esta 
em modo de desenho. Se estiver, a linha 
197 tra<;'ara o cursor, com a cor CL (ul- 
tima cor encontrada), na posifao (XL, 
YL). O programa prosseguira entao pa- 
ra a linha 198, que testa a cor do pixel 
cm X, Y, armazena-o em CL, e tra?a fi- 
nalmente o pixel em X e Y, usando a cor 
C. 

Se esse procedimeruo, aparentemen- 
te complexo, nao for aplicado, loda vez 
que o cursor for deslocado deixara urn 
"buraco" de cor diferente na posipao 
anterior. 

Per fim, nas linhas 199 e 200, sao 
usados OS valores das variaveis XL e YL, 
e o programa reiorna a linha 100, pon- 
to de partida desse segmento, para mais 
uma "rodada" de entrada. 

Uma vez concluidos esses preparati- 
vos, podemos adicionar as rotinas de 
trabalho do programa: 

500 LET YT = y/2 : XT = X-t-1 
510 HTAB XT; UTAB YT 

515 GET ASr IF ASC (AS) = 13 
THEN NORMAL: RETURN 

516 IF ASC (AS) = 8 THEN XT = 
XT-1: GOTO 510 

520 PRINT A$i XT = XT+l 
52 f. GOTO 510 

LET TY = 0: GOTO 750 



600 

650 LET TY 



1 



750 HTAB 1: VTAB 2 3 

600 INPUT "COMPRIMEMTO.LAHGURA 

:":OX,QY 
815 IF TY = 1 THEN GOTO 840 
820 FOR I = Y TO Y+fiY 
830 HLIN X,X+QX AT I 
835 NEXT I: CL = C : GOTO 900 
840 HLIN X,X+QX AT Y: HLIN 

X,X+QX AT Y.Y+QY 
84 7 LET CL - C; GOTO 900 
850 HTAB 1: VTAB 23: INPUT "COB 

(0-60) :":C 
855 IF C<0 OH C>7 THEN GOTO 850 
860 COLOR - C: PLOT X,Y 
900 HTAB 1: VTAB 23; PRINT SPC 

(39) : RETURN 
999 END 

A sub-rotina que vai da linha 500 a 
linha 525 responde aos comandos Le T 
e serve para recebcr caracteres peio te- 
clado (linha 515) e coloca-los na tela, a 
pariir da liliima posi^ao do cursor de 
texto. 

As variaveis XT e YT correspondem 
^s po.si(;6es de tabulamento de texto, nas 
posicoes HTAB e VTAB, que sao cal- 
culadas a partir da iocalizacao do cur- 
sor grafico no memento (X e Y). O ca- 
ractere e impresso pelo comando 
PRINT na linha 520, onde tambem e in- 
crementado o cursor de texto (XT). 

Ao mesmo tempo, a entrada de um 
comando < RETURN > (linha 515, 
com codigo 13) encerra a sub-rotina e 
volta para a alca de espera. O codigo 
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8, por sua vez, corresponde ao 
comando BACKSPACE no mi- 
cro TK-2000 e faz com que o 
cursor recue uma posigao, apa- 
gando o caractere escrito. 

A sub-rotina que vai da linha 
600 a linha 847 € um procedi- 
mento universal para tragar re- 
tangulos, sejam eles coloridos ou 
nao. Ela serve, portanto, para 
executar os comandos B, R, Q e 
M (OS parametros adequados pa- 
ra o caso sao fixados nos IF das 
linhas i05 a 345), 

A variavel TY serve para assinalar se 
o retangulo echeio ou vazio.AIinha 800 
pergunta as suas dimensoes, no caso dos 
comandos Q e M, e a linha 810 cabe in- 
vestigar se ele nao excede os limites da 
tela. 

Finalmente, a rotina que vai de 850 
a 900 muda a cor do cursor. Na linha 
900, e apagada a ultima linha de texto 
da tela, de modo a prepard-la para o 
proximo comando. 



INCREMEMANDO 



Execute agora, com todo o cuidado, 
o programa completo e de asas ^ sua 
imaginafao. Entretanto, nao esque^a de 
grava-lo antes em fita. 

Com um pouco de criatividade c al- 
gum esfor*;o de programafao, nao e di- 
ficil aumeniar a utilidade do programa, 
adicionando-lhe novos comandos. Pa- 
ra isso, basta inserir uma nova linha IF 
na serie de linhas desse tipo existente en- 
tre as linhas 100 e 165, verificando se 
a nova tecla foi pressionada ou nao, e 
desviar o processamento com um co- 
mando GOSL'B para a sub-rotina que 
fara a tarefa. 

Eis aqui alguraas sugestoes de exten- 
sao do programa; 

- sub-rotina para tra^ar retas de uma 
so vez (marque os pontos inicial e fi- 
nal da reta, com o cursor, e pressione 
< ENTER > para acionar a 
rotina). 

- sub-rotina para copiar bio- 
cos de um lugar para outro. 

■ sub-rotina para apagar um 
bloco reiangular inteiro da 
tela, reconstituindo a cor de 
fundo. 

- rotinas para gravar telas em 
fiia e carrega-las de volta a 
tela (leia a tela grafica com comandos 
POKE). 

- rotinas para criar uma bibiioteca de 
"icones" (pequenos desenhos ou mo- 
tives grdficos), que podem ser copia- 
dos em qualquer poitto da tela. 
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TV VERSUS 

MONDTO^ES 



MONITORES E TELEVISORES 



SINAIS DE ENTRADA 



COR VERSUS PRETO E BRANCO 



DEFINICAQ DA IMAGEM 
COMO ESCOLHER 




Monitores ou televisores? Se voce tem 
duvidas a resperto do video 
ideal para o sen computador, leia este 
artigo, onde sac abordadas as 
diferen9as entre os dois apareJhos. 



Componente essencial para a opera- 
?ao dos microcomputadores, a tela de 
video constitui o principal canal de co- 



municacao entre o usyario e a maqui- 
na, Alem disso, ^ o video que mantem 
visivel o registro de ludo o que e digita- 
do no teclado. Sofisttcado e sensivel, es- 
se equipamento eletronico deve ser bem 
selecionado no momenio da compra, 
pois o sen desempenho influencia dire- 
tamente o da mdquina. 

Existem basicamente duas opgoes de 
saida de video para os microcomputa- 
dores: o USD direto de um aparetho de 
TV (em cores ou em preto e branco). ou 



um monitor de video (que tambem po- 
de ser monocromitico ou colorido). 
Muitas m^quinas j^ v€m equipadas com 
um monitor de video padrao. que difi- 
cilmeme pode ser trocado. Se o seu com- 
putador e desse tipo, nada resta a fazer. 
Caso contrario, vale a pena ler as linhas 
a seguir. Elas explicam como funciona 
um desses equipamcnios e como o com- 
putador controla a saida de video. 

Embora existam muitas maneirasdi- 
ferentes de passar informatoes do com- 
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putador para a tela, os diversos tipos de 
videocontam com um dispositive espe- 
cialmente desiinado para isso: e o tubo 
de raios caiddkos, conhecido por sua si- 
gla em ingtes, CRT [Cathode-Ray Tu- 
be), Os tubos de raios catodicos (chama- 
dos tambem de cinesc6pios) funcionam 
com base no fenomeno da fosforesccn- 
cia, ou luminosidade provocada por fei- 
xcs de eletrons em certas substancias 
quimicas, come fdsforo. 

Um tubo de raios catbdicos consisie 
em um involucre de vidro em forma de 
cone ou piramide, em cujo interior se 
produz vacuo. Em uma de suas extre- 
midades e montado um canhao de ele- 
trons (um filamento aquecido, emissor 
de eltlrons). Uma vez liberados, os ele- 
trons compoem uma especic de nuvens 
ao redor do filamento; eles sao entao 
acelerados e aglomerados em forma de 
felxe, para poder bombardear a tela com 
uma certa velocidade. Essa fun^ao e rea- 
tizada por aneis e placas metalicas dis- 



postas ao longo do tubo, que sao eletri- 
ficadas ^ positivamente, para acelerar 
OS eletrons, e negativamente, para 
obriga-los a constituir um fino feixe, 
que, ao atingir a tela, produziri um pon- 
to de luz. 

Para criar imagens na tela, e neces- 
sario fazer esse ponto de tuz se deslocar 
em virias direijSes sobre a camada de 
fbsforo. Isso se da atraves de dois pa- 
res de placas, dispostas em angulo reto: 
sao as placas deftetoras, que reaUzam 
sua fun?ao por meio de voltagens ele- 
iricas; estas, por sua vez, atraem ou re- 
pelem o feixe nas dirc^oes horizontal e 
vertical. 

Os aparelhos de TV e a maioria dos 
monitores de video criam imagens e tex- 
tos empregando a tecnica de varredura. 
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) Nesta, um sinal eletrontco especial e 
^ aplicado as placas defletoras, de modo 
I que o ponto de luz percorre todo o vi- 
deo a grande velocidade, em urn movi- 
mentode ziguezague. Isso permite for- 
[ mar na tela entre quinhentas e 625 linhas 
""^ (dependendo, evidentemente, do padrao 
|. adotado), em cerca de I /60 de segundo. 
[ Esse padrao de varredura e constante- 
mente repetido. 

Para produzir uma imagem ou tex- 

lo, portanto, basia modular a intcnsi- 

j dade do feixe, ou seja, variar a voka- 

■| gem do canhao de eleirons, de modo a 

I liga-lo e desliga-lo em determinados mo- 

mentos. Assim, porexemplo, os carac- 

teres podem ser criados por meio de 

pontinhos acesos. Portanto, tudo o que 

o comrolador de video do computador 

precisa fazer e enviar esse sinal de inten- 

sidade ao CRT. 

Alguns tipos de monitores especiais 
para micro formam imagens ou carac- 
teres utiiizando a modulagao das placas 
defletoras. Embora essa tecnica produ- 
za imagens de exceiente definigao e qua- 
lidade, uma boa velocidade de exibifao 
somente pode ser obtida a custos muito 
altos. Na verdade, o CRT de varredura 
gera imagens complexas de maneira 
mais barata e rapida. 



PERSISTENCIA VISUAL 



O uso da tecnica de varredura para 
gerar imagens e baseado em uma pro- 
priedade da visao humana, que, em ou- 
tras circunstancias, poderia ser conside- 
rada um defeito. O olho humano retem 
uma imagem na retina por cerca de 1 /25 
de segundo. Como a maioria dos tubos 
de raios CRT e capaz de varrer toda a 
tela em cerca de 1/60 de segundo, isto 
significa que uma nova imagem, ou 
*'quadro",aparece mais rapidamentc do 
que o olho pode perceber. Assim, vemos 
natela uma imagem quesemantem, ou 
se move, sem piscar. Sc nossos olhos ti- 
vessem uma capacidade de retenijao de 
1/IOOde segundo, ou menos, a imagem 
gerada em um televisor pareceria piscar 
intoleravelmente. 



COLORIDO 



Esse principio vale lanto para lelevi- 
sores em preto e branco {monocromati- 
cos), quanlo para os que transmilem 
imagens coloridas. A unica diferentja en- 
tre OS CRT dos dois tipos e que os apa- 
reihos monocromaticos tem apenas um 



canhao eletronico e uma variedade de 
fosforo na tela, enquanto os equipamen- 
tos coloridos dispoem normalmente de 
Ires canhoes e tres espdcies de fosforo 
{existe ainda um tipo de CRT colorido 
que possui apenas um canhao que dis- 
para tres feixcs de eletrons). 

A cor e produzida da seguinte manei- 
ra: OS feixes eletronicos ativam os los- 
foros, que se ituminam, assumindo.ca- 
da um, uma cor diferente (azul, verme- 
Iho ou verde). 



SINAIS DE ENTRAOA 



Monitor ou televisor, monocromati- 
co ou em cores, o video e preparado pa- 
ra aceitar tres tipos de sinal de enirada. 
O primeiro deies, o sinal padrao de ra- 
dioemissao, e usado por aparelhos de te- 
ievisao; ele produz a imagem convencio- 
nal de TV na tela e e conhecido por RF 
(abreviatura dc radiofrequencia, usual- 
menie na I'atxa VHP). 

Chamado de video composto, o se- 
gundo tipo de sinal e utilizado pela 
maioria dos monitores, embora alguns 
aparelhos de TV tambem tenham uma 
entrada dc video composto ja embuti- 
da. Esses sinais contem a modulafao de 
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intensidade para os feixes eletronicos, 
alem de pulso?; de sincronizapao. 

Finalmente, exJste o sinal RGB, cu- 
jo nome vem das iniciais das tres cores: 
Red. Green, Blue {vermelho, verde e 
azul, em ingles). Ele constitui a forma 
mais direia e precisa de entrada de co- 
res. Neste case, cada canhao eletronico 
e alimentado por informa?6es acerca da 
cor correspondcnte (ha, porem, moni- 
tores monocromaticos capazes de acei- 
tar sinais RGB, transformando-os em 
niveis de intensidade, tambem chama- 
dos de niveis de cinza). 

O sinal de video composto e interme- 
diario, em qualidade e flexibilidadc, en- 
tre o RF e o RGB. O sinal RF, em ulti- 
ma instancia^ passa por uma serie de 
amplificagoes e iransforma;;oes, antes 
de ser convertido cm um sinal de video 
direto. Portanto, ele e de menor quali- 
dade e definii;ao, pois, quanto maior for 
o niimero de esiagios intermediarios, 
maiores serao as distonpoes e interferen- 
cias sofridas por ele. 



LAflGURA DE FAIXA 



Esistem razoes interessantes, mas tec- 
nicamente complicadas, para o falo de 
um televisor nao possibilitar o mesmo 
grau de detlnit^'ao de imagem na tela que 
um monitor de video. O ekmento dife- 
renciador e, aqui, a chamada largura de 
faixa {bandwidth, em ingles), que e a di- 
ferenga aJgebrica entre as freqiiencias 
maxima e minima de sinal, as quais o 
dispositivo eletronico e o CRT podem 
responder sem perda apreciavel de inten- 
sidade {ou ganho). Do mesmo modo, a 
largura de faixa e o principal parame- 
tro a dcterminar a qualidade ou resolu- 
(;ao de imagem. 

Um aparelho de TV, por exemplo, 
nao aceiia sinais que requeiram uma lar- 
gura de faixa maior do que 5,5 MHz 
(megahertz, ou I 000 000 de oscilagoes 
por segundo). Essa faixa funciona bem 
em um video de 32 ou quarenta colunas; 
nesie ultimo caso (quarenta colunas), 
porem, os caracteres tendem a tornar- 
se indcflnidosou "borrados" (e que essa 
dimensao de video cxige, normalmente, 
uma largura minima de 10 MHz). 

Os monitores de video sao projetados 
especificamente para processar faixas de 
tal magnitude. Entretanto, e necessa- 
rio que o computador tenha uma saida 
de video composto, em vez de uma RF 
(alguma.? vezes ambas estao presentes, 
i;omo e o caso dos micros da linha 
MSX). Os modelos da linha Sinclair, 
por exemplo (ZX-81 e Spectrum), tSm 
saidas someme para RF. 

Quando falamos da qualidade da 



imagem na tela, estamos nos referindo 
a resoluf^ao (ou definigao de imagem) e 
a separai^ao de cores. Infelizmente, qua- 
se .sempre as duas caracten'sticas sao an- 
tagonicas, ou seja, a presen^a de mui- 
tas cores implica menor definii;ao, poi.s 
a largura de faixa tern que ser dividida 
entre a.s freqiiencias present es nos ires 
canhoes. Assim, um monitor monocro- 
matico produz uma defini^'ao melhor do 
que OS tubos crom^ticos. 

Em uma tela normal de video, dc qual- 
quer especie, exisiem cerca de 360 OOO 
ponios de fdst'oro. No caso de uma tela 
em cores, 120 OOO desses pontes serao 
vermeihos; 120 000, verdes. e 120 OOO, 
azuis. Portanto, a rcsolugao da imagem 
sera tres vezes menor do que a de um 
tubo monocromatico. 

Para muitas aplica^oes, como o pro- 
cessamento de textos, o monitor mono- 
cromatico e a optao natural, pois for!;a 
mcnos OS olhos do usuario. A combina- 
<;ao mais freqiiente e verde sobre i'undo 
preto. O video inverse, ou seja, carac- 
teres pretos sobre fundo branco ou de 
tor Clara, e menos freqiiente, pois pro- 
voca maior cansaspo visual, 

E bom lembrar, alias, que a maioria 
das pesquisas a respeito dos efeitos do 
video .sobre a saiide nao eonseguiram de- 
monstrar a nocividade do CRT. 

Os efeitos maleficos sao geralmente 
causados por outros fatores, como bri- 
Iho refletjdo na tela, cores inadequadas, 
caracteres imprecisos. Uma tela de TV, 
cnlretanto, pisca imperceptivelmente 
— embora mais que a de um monitor 
— , o que pode provocar dores de eabe- 
*;a e problemas visuals. 

E importante notar ainda que a deti- 
nif ao de imagem nao dependc apenas do 
CRT e dos seus circuitos de controle, 
mas tambem do hardware do computa- 
dor, Os caracteres sao formados por 
"celulas" ou matrizes de pontinhos de 
5 X 7, 7 X 9, ou 9 X 9, conforme a 
qualidade do micro. Combinada com a 
largura de faixa do monitor, essa con- 
figura^ao pode produzir caracteres de 
pequena ou de grande re.solu?ao. 

Por outro lado, embora o ideal fos- 
se associar a cada pontinho luminoso na 
tela um bit ou um conjunto de bits na 
memoria do computador (no caso de in- 
formacao em cores sao necessarios de 
tres a sete bits), esta seria uma solugao 
pouca pratic^ e muito cara. Assim, nor- 
malmente, um ou mais bytes da RAM 
sao associados a caracteres (matrizes de 
poniinhos) e nao a pontinhos indivi- 
duals, e o circuito gerador de video do 
computador faz o resto do trabalho, uti- 
lizando uma tabela interna de caracte- 
res (que pode ser alterada em alguns mi- 
cros, como no Sinclair). 



COMO ESCOLHER 



Os dois fatores mais imporiantes a se- 
rem considerados quando se deseja com- 
prar um video sao: o tipo de computa- 
dor ao qual ele deve ser acoplado, e as 
aplicav'oes a que ele esta destinado, Em- 
bora a tela seja um elemento importan- 
te do sistema, ela depende do tipo de 
hardware de video do computador, Se 
a capaeidade grafica do micro e pobre, 
nao adiania comprar um monitor de al- 
tissima resoluijao, que ela nao vai me- 
Ihorar: voce estara jogando dtnheiro fo- 
ra. Portanto, e precise comprar o video 
mais adequado para aquilo que o com- 
putador tern a oferecer. 

Ao mesmo tempo, e importante tam- 
bem ievar em conta a funijao para a qual 
o computador esta sendo desiinado. As- 
sim, o monitor monocromatico e a so- 
lutpao mais adequada quando se procu- 
re uma melhor relagao custo/beneficio 
em apiicafoes nas quais a cor nao e um 
pre-requi.'iito. Se, ao contrario, e neces- 
sario um padrao dc cor de alta qualida- 
de, entao um bom monitor RGB deve 
ser considerado, embora a maioria dos 
micros pessoais e domesticos nao preci- 
se de nada mais sofisticado do que um 
monitor de video composto. 

Jogos e programa^oes pouco comple- 
xas requerem apenas um aparelho de TV 
como sai'da de video. Evidentemente, a 
maioria dos jogos aparece de forma 
muito melhor em um monitor em cores: 
entretanto, quase todos eles sao progra- 
mados em funijao das limilafoes dos te- 
levisores. Alem disso, o monitor pode 
ser uma ma escoiha com relapao a ou- 
tros aspecios, Por exemplo, normalmen- 
te OS monitores de video nao tem saida 
sonora, pois sao fabricados para o mcr- 
[;ado profissional. Ora, essa caracten's- 
tica tem importantes implicagoes, pois, 
de modo geral, os jogos mais sofistica- 
dos e interessantes sao programados 
com efeitos sonoros, 

Tambem nao e recomendavel usar te* 
levisores baralos ou muito antigos. Em 
primeiro lugar, os circuitos eletronicos 
(alguns ainda usando vilvulas) podem 
nao ser compativeis com a saida analo- 
gica de video dos coroputadores. Em se- 
gundo lugar, defeitos que* nao causam 
grande impacto sobre a qualidade da 
imagem de TV — como o "estouro" da 
varredura nas margens da tela, ou a 
acentuagao de uma cor sobre as outras 
— afetam negativamente tanto o texto 
como as imagens gciadas pelo compu- 
tador. Neste caso, pode sair muito mais 
caro tentar reparar o velho aparelho 
com defeilo do que comprar um moni- 
tor ou urn televisor novos. 
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© BANDIDO DI 
UM BIRACO SO 



UTILIZE TODA A CAPACIDAOE 



GRAFICA DO SEU MICRO 



AS ENGRENAGENS DA MAQUIhJA 

MONTANDO CACA-NJQUEIS 

AS INSTRUCOES 




Partictpe deste novo jogo de INPUT e 
viaje para o mundo m^gico de 
Las Vegas, acionando a manivela de 
uma mdquina ca^a-niqueis que 
nlo vai deixa-lo de boisos vazios. 



Atualmente, ja e possivel substituir 
OS velhos ca^a-niqueis mecanicos por 
programas de microcomputadores, on- 
de a tela i usada para mostrar as rodas 



com OS desenhos de frutas. £ exatamen- 
te isso que faremos neste e nos pr6ximos 
artigos de INPUT. 

O jogo desempenha as fungoes carac- 
teristicas de um ca«;a-niqueis real — ou 
seja, prender, apostar e empurrar. As 
rodas m6veis com os desenhos de fru- 
tas sao representadas por meio de gra- 
ficas animados. 

Como se nao bastasse, ele tem a van- 
tagem de poupar o jogador de perder 
grandes quantias em dinheiro para es- 
ses bandidos de um brago s6 — como 



sao conhecidos os caca-m'queis em sua 
terra natal, os Esiados Unidos. Em com- 
pensa(;ao — jS que ninguem e perfeito 
— , o jogador nao ganha nenhum tos- 
tao. Para comeijar, consuUe a se^ao de- 
dicada a seu micro. 

Nao se esque9a, entretanto, de gra- 
var a primeira parte do programa, apre- 
sentada neste artigo, antes de passar k 
execu^ao da segunda parte. O progra- 
ma nao funciona neste estagio, embora 
alguns microcomputadores mostrem o 
aspecto bdsico da tela grafica. 



OS BLOCOS GRAFICOS 



As linhas 140 a 150 contSm os bytes 
responsaveis pelos blocos usados para 
desenhar as frutas do caga-niquds. As 
instru^oes coloridas devem ser digiladas 
diretamente por meio de codigos de con- 
trole, de modo a economizar memoria. 
Para escrever essas linhas, entre no 
"modo estendido" (CAPS SHIFT + 
SYMBOL SHIFT) e pressione a tecla re- 
lativa a cor desejada. A seguir entre no 
modo grafico (CAPS SHIFT e 9) e di- 
gite as letras da listagem. 

10 LET HFLAG=0: POKE 23658, B: 

RESTORE 20 : GOSIJB 860 

20 DATA 14. 31, 31. 31. 31, 15,. 1.1 

.56,252,25 2,2 52,2 52,248,224. 

192 

30 DATA 49.42,51,42.50,255, 

255 , 255 , 15 2 , 84 , 216 , 84 , 84 . 2 55 . 

255,255 

40 DATA 3.4.8,28.62.62,62,28, 

2ft, 190, 1.25,62,28.0,0,0 

50 DATA 0.0.16,28.15,7,3.0,4, 

12,26,56,248,240,224,0 

60 DATA 0,0.7.15.31,31.15,7,8 

, 248,240, 240. 224,224.192,128 

7 DATA 1, 3. 3. 7, 15, IS, 24, 1 , 

128 , 192 , 192 , 2 24 , 240 , 240, 24 , 

12B 

80 DATA 1,7,15,31,31,31,31,15 

, 224 , 240 , 240 , 240 , 240 . 224 , 192 . 

128 
90 DATA 8,8,8,8,73,42.28,8,16 
.56,84. 146, 16.16,16,16 
100 FOR i-USB "a" TO USB ''P" + 7 
: READ a: POKE l.a: NEXT i 
110 LET TOTAL-100 



140 


DATA 


"AB" 


"AB" 


"CD" 


"CD".-' 


ES" 


-AB', 


■EF" 


"[33" 


"MN" 


"EF' ," 




"MN" 










145 


DATA 


-m- 


"MN" 


"[31" 


"MN" ," 


m 




"CD" 


"CD" 


"EF" 


"AB*,- 


CD" 


'MN" 










150 


DATA 


-EF' 


'MN" 


n » 


"133" , " 


CD" 


"AB". 


"DE" 


"AB" 


"BE" 


"CD"," 
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ffi" .' [E" 

160 DIM aS<24,4): DT.M b$C24,4) 

■ DIM c:$(24,4): FOR i=l TO 12: 

BEAD aS(l): LET aS ( i + l 2 ) =aS ( l ) 

: NEXT 1 

IBO FOR v-1 TO 12: READ bS<i): 

LET bS (1+12) =bS(l ) : NKXT i 

190 FOB I -J TO 12: READ c$ ( i ) : 

LET cS{l + 12)=c:$(i) : NEXT l 

860 BORDER 7: PAPEH 9: INK 2; 

CLS 

870 PRINT ■'" 

880 FOB I'O TO 1 : 

31: PRINT PAPER 

: NEXT j: NEXT l 

890 FOR 1=2 TO 5: 

J PAPEH 6;"CCnD 

.1 ~ ;: " : NEXT I 

900 PRINT PAPER 6; INK 2 ; AT 

.6! '10 CENTAUOS A JOGADA" 



FOR j»0 TO 
7; AT I . J! " ' 

PRINT AT 1,0 
";AT 1,28;" r: 



910 PRINT PAPER 6; INK 2 s AT J 

,4:"annnnccccnnDDDnnaa 
::riaaaa-iAT 2.4!- □ddbei:!] 
BEBOBB BEDBBCBCEICn 3 • 

920 PRINT PAPER 6i INK 2 i AT 1 

,4;"nppnnnnnDaDaazizinnc 
acDcaa-jAT 3,4;" □nnHBCB 
BBB^BrBn^fUlBEacpc- 

930 PBINT PAPEH 6; INK 2; AT 1 

.4;'zcani:iDGcnnnnnziccnc 

CCCCCr-;AT 4 ,4 ; "^l-inBHHE 
C!i.:JHF1FirG:;E]EjHCEr!n[jG- 

94 PRINT PAPER 6; INK 2iAT 1 

,4;' zcnGnnnDDDDaziDcnnc 

UGCCGC"iAT 5.4l-aDGG"; INK 

D :"■■■■■■■■■■■■■■■■ 

P G G G ' 

950 FOR 1-6 TO 14; FOR j-8 TO 
2 3 STEP 5: PRINT INK ; AT i,j 
, " " : NEXT J ; NEXT i 
950 FOR 1=8 TO 23: PRINT AT 15 
,1 ; INK 0;"B" ; NEXT J 
970 FOR 1-6 TO 21: PRINT 
PAPER 6; AT 1 , ; "uljaacaGG " : 
AT J,24j" JiDCDDaLin": NEXT I 
980 FOR 1-16 TO 21: PRINT 
PAPER 6; AT I.Bi'GGGGGGGnDL 
; l.j; li j,jG": NEXT I 
990 PRINT INK 1; PAPEH BiAT 2 
,0;"PREMlO" ;AT 2 , 26 ; "PREMTO" ; 
AT 3,1 j"^*" r'";AT 3,3?:"^ H 
C" 

1000 PRINT INK 1; PAPER 8 ; AT 4 

,2;"10":AT 4.27;"100";AT 6,2;"2 

0";AT S,2;"50'rAT / , 27 : "RAPA" ; A 

T 8.25;"BffPBffHB" 

1010 PRINT INK li PAPER 8; AT 2 

0,6;"<SPACE> GIRA AS SODAS" ; AT 

21, 3 i "HOLD SEGURA E NUDGE EMPUR 

RA" 

1020 PRINT AT 17 , 7 ; " L: i:: li 1 GGG 

c2n3aa3aaaa';AT 15,9;" ■ 
■ ■■□■■■■'"'■■■■" 

10 3 PRINT AT 18 , 7 ; "I 4 = 1L2 5 = 2R. 
3„6-l,(l.3';AT 19,4; INK 7; PAPER 
2:" HOLD : TECLAS DE 1 A SLi' 
1040 RETURN 

A linha 10 saka para a sub-rotina da 
linha 860, que desenha o ca^a-niqueis. 
As instrugoes ao jogador sao colocadas. 
na frente da m^quina. 

A linha 100 cria os blocos graficos — 
UDG — na memoria usando o coman- 
do READ para ler os valores coniidos 
nas linhas DATA 20 a 90. Depois que 
banco de blocos e criado, os caracte- 
res das frutas aparecem nas linhas 140 
a 150, de onde o programa retira dados 
para produzir as rodas giratdrias. As va- 
riiveis a$, b$ e c$ representam as tres 
rodas, e a ordem das frutas na rodas e 
determinada pela ordem dos blocos nas 
linhas DATA. 



20O GOSUB 1050 
1050 PRINT AT 5 . ; AS (4 ):""---" : 
AT 7,0;A$(4) ;AS(4) ;"--";AT 9,0; 



ASC4) ;AS(4) ;A5(4) iAT lO.OjASd) 

; AS ( 1 ) i AS ( 1 ) 

1060 PRINT AT 1 1 , ;CS (2) : CS (2) I 

C5C2);AT 12.0:BS(1) :B3C1) ;BS(1) 

1070 PRINT AT 5 , 26: C$ (1) ; CS t 1 ) ; 

C5C1) lAT 6,26;CS(3} iCS{3) ;CS(3) 

:AT g,26;CS<4) :CS(4) ;CS(4) 

1080 PRINT AT 7 , 10 ; AS ( 1) ; AT 10. 

10;A$ (2) iAT 13,10iASt3) 

1090 PRINT AT 7 , J 5 ; BS ( 1) ; AT 10, 

15;BS(2) iAT 13,15;B$C3) 

1100 PRINT AT 7, 20 ;(:$(!) ;AT 10, 

20;CS(2} ;AT 13.20;CS(3) 

1110 PRINT AT 16,26; INK 2i PAP 

ER 6; "NUDGE" ; AT 1 7 . 24 ; "TECLAS" ; 

AT 15,25; "Q-W-E P" :AT 18.2S;'*A- 

S-D 0" 

1120 PRINT INK 0; PAPER 7 ; AT 1 

2,25;" latt^MBdHfl '';AT 13,25^;;^ 

I";AT13.31;"E " ; AT 14,25;' 
nBr"Fl";AT13,Z6; INK 2;' 
■ ■■- 

1130 PRINT PAPER 6; INK 0; INV 
ERSE 1 ; AT 15,0;" TOTAL" ; INVERSE 

0;AT 17,();"S";AT ]8.0;"C":AT 1 
7,1; PAPER 7; BRIGHT li-Gl"iAT 
18.1: "I 00" 

1140 PRINT IliAT 0.0:"aGGGCACI 
FE INICIAL - 1 t}OLLAH'' 
1150 PAtlSE 

1160 PRINT ti;AT o,o;"nnaanG 
nnGGGUunaaacuaaacGcacn 

ri G D n " 
1170 RETURN 

A sub-rotina da linha 1050 desenha 
as rodas em sua posigao inicial junto 
com alguns delaihes complementares. d 
jogador e informado que seu cacife ini- 
cial t de um d61ar e que cada jogada cus- 
ta dez centavos. 



OS BLOCOS GRAFICOS 



10 PMODE 3.1:PCLS:CLS 

20 DIM BC12) .C(12) .A{12) .BRfl2) 

,S{12) .PL{12) ,P(12) .Rl{15) ,R2(1 

5J .B3tl5) ,g(9) ,H(29) 

30 DRAW"BM16,0C2L2GLG4DG4D2H7FB 

FR3ERER7U2H4UH4LB-:PAINT (14,10) 

:DRAW-BM17,2C1F4DF- 

40 GET(0.0)-(31.15) .B,G 

50 DRAW-BM62,0C2L6GL6G2C4L3GLGL 

GFDGLGLGLGFRFRFR3EREHER5FRFH3ER 

EaEHLHLHL5HEHLHLH":PAlNTC4e,8) : 

DRAW"BM41 ,eClFRFRFHNFUR2UR2URBM 

-4.-2HBM-5,7HBR17H" 

60 OET(32.0)-(63.15) .C,G 

70 DRAW"BM80,0C3G8R17NH8BD2LNL1 

5GLGLGLGL3NH3RFR7E" ; PAINT(80.4) 

rPAINT(80.13) 

80 GET(64.0)-(95,15) ,A,G 

90 DRAW"BM96,OC4R30BD2L30DE30BD 

6UBU2HL4D2NR4D2BL7U3HL3GDNR4D2B 

L12a4EHEHL5D2NR2D2BD2R30DL30BDZ 

R30" 

100 GET(96,0)-(127,15) ,BR.G 

110 DaA¥'BM148,0C2GL3GC4LHLGL3G 

4RF3RF5RFH3ERE4UER2E3LH3LHLGL5G 

L' : PAINT C144. 8) :DHAW"BM138 , 3C1R 



^ 5UPERFRUIT rtit 




■ e MOUO OR lfUCO.t J » • " 






O ca^a-nfqueis "Superfruil" e bem atraente no Acorn, mieio que nao existe no Brasil. A direita. como ck aparece no Spectrum. 



B»13R8DBL10LBDBLSLBDBI16RBR9RBDB 

L4LBL13LBDBR10RBR4BDLBL9LBDBH4B 

8G2LBR6R'' 

120 GET{128,0)-*C159,1S) ,S.G 

130 DHAW"BM186,0C3L2GL5DGR6DF4D 

G2LG3LGLSH6E5B2'':PAINT{176,8) :D 

RAM"BR6BDC1D2F" 

140 GET(160.0)-{191,15} ,PL,G 

150 DRAW''BM218,0C2L4DL3D3F4DF4L 

GLGL13HLHUE7BEU2":PAINTC208.8) : 

DRAM"BM211,6C1DF2" 

160 GET{192.0)-(223,15) ,P,G 

O nosso cafa-m'queis i desenhado em 
PM0DE3. Os comandos GET e PUT 
sao utilizados para desenhar os simbo- 
los das frutas nas rodas giratorias. 

As matrizes que contem os simbolos 
sao dimensionadas na linlia 20 — B pa- 
ra o sino, C para a cereja, A para a bo- 
lota de carvalho, BR para a barra, S pa- 
ra o morango, PL para a ameixa e P pa- 
ra a pera. As matrizes Rl, R2 e R3 re- 
preseniam o conteiido das tres rodas; W 
contem os valores dos premios e H e 
usada para segurar as rodas, impedin- 
do que girem livremente. 



AS INSTRUCOES 



170 BS-CHRStl2e> :CLS: PRINT 69,8 

S"Huperfruit"BS 

180 PRINT''VOCE TEH 1 DOLAR.CADA 

JOGADA CUSTA .10, ATE ACABAR 

DINHEIRO" 
190 PBINT'controles: ": PRINT "<S 
PACE>"TAB{3) "-GIRA RODAS/APOSTA 
":PRINT'<i>"TAB(3) "-LIBERA RODA 
S" 

200 PBINT''<2>"TAB(3) "-SEGURA RO 
DA ESQUERDA' :PRINT"<3>''TAB(3> "- 
SEGUHA RODA DO MEIO" I PHINT"<4>'' 
TAB(3) "-SEGURA RODA DIREITA" 
210 PRINT "<5>"TAB(3) "-EMPURHA 
BODA ESQ. P/ CIMA" : PRINT"<6>"TA 
B(3) "-EMPURRA RODA CENTRAL P/Cl 
MA-;PRINT-<7>"TABC3)--EMPURRA R 



ODA DIR. P/ CIMA* 
220 PRINT "<8>"TAB(3) "-EMPURRA 
RODA ESQ.P/BAIXO" :PHINT"<9>"TAB 
(3)"-EMPURBA RODA CENT. P/BAIXO 
": PRINT "<0>"TABC3) '-EMPUBRA HO 
DA DIB. P/BAIXO* : PHINT'<tNTER>"T 
ABO) "-RECOLHE PREMIO" ; 

As linhas 170 a 220 escrevem as ins- 
trugoes na tela de textos. 



A TELA INICIAL 



230 IF INKEY$<>'' " THEN 230 

240 FOR A-0 TO 15;READ R1{A),R2 

(A) ,B3(A) :NEXT 

25 DATA 0.1.2,3,5,6,6,2,0,5,3, 

4,4,6,5,6,4,3,1,2.0.3,0,5,2.1,4 

,6,5.1,0,6,6,1.4,3,2.0.1.5,3,2, 

4.6,6,6,4.5 

260 FOR A-0 TO 9 ; BEADW (A) :NEXT 

270 DATA 200,150,100,80.60,40,3 

0,20,10.0 

2S0 GOSUB 4000 

290 SCREEN 1,0:PCLS 3:DBAW"BM84 

.4CZS20LDRDLBR2NU2RU2BRND2HDLBE 

BRNRDNRDRBBU2RDLFBRUNBURBRND2RD 

LFBHNU2RU2BRD2BR2U2LR2" 

300 FOR K-0 TO 2: LINE (40+64*K. 

20)-(87+64*K,, 115) , PRESET , BF : NEX 

T 

310 FOR K-0 TO 2 ; DBAW*BM"+STRS < 

40+64*K)+",124S16R12D4L12U4BFD2 

BRUNLUBH2RD2LU2BR3D2RBR2U2S&HFD 

2GL':NEXT 

320 GET(38.122)-C91. 143) .H.Q 

330 COLOR 4: FOR K-1 TO 5: LINE (1 

0+K*16,15a)-(21+K*16.169) .PSET. 

BF:NEXT 

340 DHAW''BB30C1524U2F2U2BRD2RU2 

BRD2S8RB2U2H2LS24BR3LD2HUBENRDN 

RDH" 

350 GOTO 350 

4000 CLS:PRINT €11 , "premioo" 

4010 PRINT §65, "BARRA BABBA B 

ARRA' : PRINT" BOLOTA BOLOTA BOLO 

TA"; PRINT" AMEIXA AMEIXA AMEIXA 



4020 PRINT "MORANGO MOBANGO MOR 

ANGO" : PRINT' PERA PERA PERA 

";PRINT" SINO SINO SINO" 

4030 PRINT" CEREJA CEREJA CEHEJ 

A": PRINT" BINO SINO -":PR 

INT" CEREJA CEREJA -'sPBINT" 

CCREJA ~ ** " 

4040 FOR A-0 TO 9; IF A<7 THEN P 

RINT e89+A*32,USING'SSt,il'';WCA 

)/100; :G0TO 4060 

4050 PRINT e89+A*32,USING''SSI.i 

♦";WtA-13/I00 

4060 NEXT 

4070 PRINT e416,"PHESS10NE <SPA 

CE> PARA CONTINUAH- 

4080 IF 1NKEY30" " THEN 4090 

4090 RETURN 

As linhas 240 e 250 colocam as rodas 
na tela — cada niimero representa uma 
das frutas. As linhas 260 e 270 aceriam 
OS valores dos premios. A linha 280 sal- 
ta para a sub-roiina que come(;a na li- 
nha 4000; esta exibe os resuliados pre- 
miados e seus valores. 

As linhas 290 e 340 desenham a tela 
inicial. E a linha 290 que liga a tela de 
aha resolugao, permitindo o surgimen- 
to do caija-m'queis. na tela. 



O programa listado a seguir cuida es- 
pecificamente da parte grafica bdsica do 
jogo caga-niqueis. 

5 CLEAR .liOOO 

10 SCREEN I: COLOR 1. 11.15: KEY O 

FF 

20 DATA 14,3], 31 , 3.1 . 31 . 15 , 3 , 1 , 5 

6.752,252,252.252,248,224. 192 

30 DATA 49,42,51,42.50,255,255, 

255,152.84,216,84,84,255,255.25 

5 

40 DATA 3,4,8,28,62,62,62.28,28 

,190,125,62.28,0,0,0 

50 DATA 0,0,16,28,15,7,3.0.4,12 

,26,56,248,240,224,0 

60 DATA 0.0,7,15,31.31,15,7,8,2 



48,240,240,224,2 24,192,128 

70 DATA l.2,3.7,15,15,24,1.12B, 

] 92 , 1.92 , 2 24 . 240 . 240 , 24 , 1 2fl 

80 DATA 1 .7, IS, 31,. ^1, 3 1,31.. 1 5, 2 

24 , 240 , 240 , 240 , 240 , 224 , ] 92. 128 

90 DATA 8.8.6,8.73.4 2,28.8,16.5 

6,84,146,16.16. 16.16 

100 FOR 1 = 1 S*8 TO ,T:0«B STEP 8 

no FOR J = TO 7 

120 READ A:VPOKE BASE (7) +1*8+ J , 

A 

130 NEXT J.I 

140 FOR J = l!i TO ill 

ISO HEAD AiVPOKE BA;5E{6)+t.A 

160 NEXT 

170 DATA 143.143.3.1,31.111.111. 

193 . 191 , 63 , 63 , 223 , ZZ3 , 1 59 , 159 . 3 

1 .31.0 

180 DIM A(24.2) ,B{24,2} ,CC24.2) 

190 FOR 1=0 TO 11:KEAD A (1 . 1) . A 

(1,21 :A(f + 12.1)=Arr.l ) :A(] + 12,2 

)=A(1.2) :NEXT I 

200 FOR 1=0 TO 11:READ B(I,]).B 

(1.2) :B(l+12,l)-B(I.l) :BtI+12,2 

)=BCI .2) :NEXT I 

?I0 fOH 1-0 TO 11: HEAD C(1.U.C 

a.Z) ;Ca + 12.1)=C{I,l) :C(I+12.2 

) =C; (1,2) : NEXT 1 

220 DATA 20fl.20B,]20,128.136. 14 

4. IS 2. 160, I6fl,] 76,1B4.19Z.200,2 

OB, 3 16, 224, 168. 176, 136, 144,216, 

224, 120, 128 

230 DATA 216,224,136.144,200.20 

8,152, 1 60, 2 16, 224, 168, 176, I B4.1 

92,120, 128. 20 0,208,1.S2. 160, 168. 

176,120.128 

240 DATA 120,128,200.208.184,19 

2 , 1 S2 , 160 , 21 6 , 224 , 1 20 . 1 28 , J 36 , I 

44 , 168 , 1 76 , 200 , 208, 1 84 , 192 , ] 52 , 

160,216,224 

860 PRINT "" 

8 70 FOR r=0 TO 31; UPOKE BASE (5 

)+l ,254: NEXT 

880 LOCATE 4,0: PR INT "10 CENTAV 

OS A .lOGAUA" 

890 LOCATE 2 , 2 : PH I NT " "iCflHSf 

2'i4):" yBBti:;il'mU!HBtlJ!":iBi:iIIKE 

HEDD " 

900 LOCATE 2, 3 i PR INT " ";C:HH3( 

2.^4) ;" HCBHaEH " ;CHRS [254) ;" ■ 

ija " ; CHa5(2S4) ; " flaBBKa " iCHRS 

(2S4):" " 

910 LOCATE 2.4:PRINT " "jCHRSt 

?'i4) :" HOHOF: ";CHR5(2'i4) ;""Eltl 

EC ': CHBS(2.'>4) ;" ■DEHEJ^Qi " lt:nn 

5( 2^141 ;" " 

920 LOCATE 2 , 'j : PR t NT " ClIUBB 

970 FOB 1-6 TO 1 4 : LOCATE B , i : PR 
INT ;;T»lNfJS(12.254) tNEXT 
990 LOCATE 0,4: PRINT " 1 " i : LOCA 
Tt; 0,6 -PRINT "20"; : LOCATE 0,8;P 
RINT "SO" i : LOCATE 2.S,4: PRINT "1 
00" ; : LOCATE 25 , 1 : PR.I NT "KARA" ; : 
LOCATE 24. B: PR INT "BP^HII " \ -V 
POKE BASE (S) +28/. 19? 
1000 LOCATE 8. 15: PRINT " ■■UP 
■ an ;_!■■□ " ; : LOCATE 1 , 1 6 : PH I NT 
"1 2 3 " ; 

1010 LOCATE 6.17:PRINT "A^lt.'/ h 
-2*3 6= In 3"-. LOCATE 6, 1.8: PRINT 
I I "HOLD TECLA1> 1 A 6" ; 



1020 LOCATE 1,19: PHI NT "RAHRA D 
E ESPACO PARA RODAR" 
1030 LOCATE 0,20: PHI NT "HOLD iit 
GUBA E N1)D(IE EMPURRA" ; 
1050 FOR T=l TO 2 : VPOKE BAKE (5) 
+ 159+ r ,A(2,I) : NEXT: LOCATE 0,5: P 
RINT IiTRINtlS(4,2S4) ; 
1060 FOR J=0 TO IrFOR r=l TO 2i 
VPOKE BAf;E(5) 4-223 + I.+J«2.AC2,T) : 
NEXT I, J: LOCATE 2, 7: PR INT CKRS ( 
254) ;CHRS(254) ; 

1070 FOE J-0 TO 2: FOB L-1 TO 2: 
VPOKE HASE(5)+2B7+I+J*2,AC1 . D : 
NEXT I.J 

107 2 FOR J=0 TO 2: FOR t-1 TO 2 : 
VPOKE BAf!E(fi)+185+l+.J*2.A{3,T) : 
NEXT I, J 

1074 FOB J=0 TO 2 : FOR 1-1 TO 2: 
VPOKE BASE (5) +2 17+1+ J*?, A (8,1) : 
NEXT I , J 

1076 FOB J=0 TO 2:F0P 1-1 TO 2: 
VPOKE BAS;E (51+31 3 + 1 +.1* 2 , A (6 , I) : 
NEXT I, J 

1080 FOB .1 = TO 2: FOR 1=1 TO 2: 
VPOKE BASE(5)+319+I+J*2.A(5,I) : 
NEXT I, J 

1090 FOR J-0 TO 2: FOR 1 = 1 TO 2: 
VPOKE BASE (5) +351-' l+J*2,At7,I) : 
NEXT T,.J 

UOO FOR 1 = 235 TO 500 STEP 96;F 
OH J-l TO 2TVP0KE BA3E (5) +I+J-I 
,A( tl-235)/96+l , J) :NEXT J,T 
1110 FOR 1=239 TO 500 STEP 96; F 
OB J=l TO 2: VPOKE BASE (5) +1+J-1 
,B(il-239)/96+l , J) :NEXT J. I 
1120 FOR 1=243 TO 500 STEP 96 : F 
OH J^l to 2:VP0KE BASE £5) +1+.I-1 
,C(Cl-243)/96+l,J) :NEXT J. 1 
1130 LOCATE 22,13:PRJNT "TECLAS 
"jiLOCATE 22. 14: PRINT "NUDGE";: 
LOCATE 21.12: PRINT "O-W-E " : LO 
CATE 21,15:PHINT "A-S-D " 
1140 LOCATE 0.13:PR1NT "TOTAL"; 
: LOCATE 0,14: PRINT "S";: LOCATE 
0.1 5- PRINT "C;; LOCATE 2, 14: PHI 
NT " ] " ; : LOCATE 2 . 1 5 : PR INT "00 " ; 
1150 LOCATE 1.2Z:PRrNT "CACIFE 
TN1C1AL = 1 DOLLAR" i 

Os blocos graricos que se encontram 
na lisiagem podem ser obtidos via tcclas 
SHIFT, CODEe GRAPH. 

O programa e executado na tela dc 
texios de 32 coliinas. Ao mesmo tempo, 
OS simbolos que representam as frutas 
sao desenhados como se ro.s&em carac- 
teres. Os padroes correspondenies de- 
vem ser transferidos da.s linhas DATA 
20 a 90 para a tabela de padroes na 
VRAM — linha 120. Os caracteres sao 
coloridos pela linha 150, que coloca o.s 
codigos apropriados na tabela de cores 
da VRAM — BASE(6). 

Tres matrizes sao utilizadas para re- 
presentar as rodas giratbrias: A, B e C. 
Elas sao dimcnsionadas na linha 180. A 
ordem dos simbolos nas rodas 6 obtida 
pelas linhas 190 a 210 nas linhas DATA 
220 a 240. 

A maquina de frutas, com as instru- 



(joes ao jogador, e desenhada pelas li- 
nhas 860 a 1060. Os resultados premia- 
dos aparecem na lela com o auxilio das 
linhas 1070 a 1090. 

As rodas sao desenhadas em sua po- 
sipao iniciai pelas linhas 1 1 10 a 1 120. E 
as linhas restantes dao mats algumas ins- 
truijoes. 

No proximo artigo, veremos corao 
colocar as rodas em movimento. 



a] El 



O programa listado a seguir cria os 
blocos graficos e as telas com o ca?a- 
m'queis e as instru?6es. 

10 HOME :E = 35000: HIMEM: E 

20 F " INT CE / 256) : POKE 232 

,E - F * 256: POKE 233, F 

30 FOR T = E TO E + 41 + 16 * 

.32 

40 READ A: POKE I, A 

50 NEXT 

60 SCALE- 1 : ROT- 

70 DATA 20 ,0 ,42 .0 .74 .0 , 

106 ,0 ,138 ,0 ,170 ,0 ,202 .0 

,2 34 ,0 ,10 .1 .42 .1 ,74 ,1 ,1 

06 .1 .138 ,1 .170 ,) ,202 .1 . 

2.34 .1 ,10 .2 ,42 .2 ,74 ,2 ,10 

6 ,2 .136 .2 

80 DATA .72 .105 ,77 ,218 

.219 ,27 ,87 ,13 .13 .77 ,218 . 

251 ,31 ,87 ,13 .13 ,77 ,218 .2 

51 .31 ,87 ,9 ,13 .77 ,218 ,251 
.219 ,2 ,0 .0 .0 

90 DATA ,104 ,13 ,77 .209 
.251 .219 ,51 ,13 .13 ,13 .141 
,27 ,31 ,31 .31 .110 ,13 ,13 .1 

41 ,27 ,31 ,31 .31 .110 .13 ,77 
.209 ,Z19 ,77 ,31 ,6 

100 DATA ,40 ,109 ,73 .213 
.751 .251 .51 .45 ,77 ,105 ,26 
,255 ,251 ,51 ,45 ,77 .105 ,21 

8 .219 ,219 ,42 ,45 ,45 ,45 ,21 
3 ,63 ,63 ,63 .55 .0 .0 

no DATA .104 .41 .109 ,20 

9 ,251 .251 ,87 .13 .45 .77 .21 

8 ,223 ,31 ,119 ,13 ,77 ,169 ,2 
19 ,219 ,155 ,45 ,46 .45 ,173 . 
59 ,63 ,63 ,63 .6 ,0 ,0 

120 DATA .72 .73 .73 ,218 
,223 .219 .74 ,73 ,73 .218 ,223 

,219 .74 ,9 ,13 .141 ,27 ,223 
.251 ,106 ,13 ,77 .209 .219 ,27 

,159 ,0 ,0 ,0 ,0 ,0 
130 DATA .40 ,77 ,73 ,209 
,219 ,219 ,115 ,73 ,73 .209 .21 

9 .219 .83 .77 ,73 ,209 ,219 ,2 
51 ,83 ,13 ,13 ,77 ,218 ,219 ,Z 
23 ,2 ,0 .0 ,0 ,0 ,0 

140 DATA ,72 ,73 ,73 ,21B 
,251 ,219 ,74 ,73 ,77 ,218 .251 

,223 ,74 ,105 ,77 ,218 ,251 ,3 
1 ,87 .77 ,105 ,209 .219 ,251 , 
19 ,0 ,0 ,0 ,0 .0 ,0 
150 DATA ,104 ,73 ,73 ,218 

,219 .251 ,110 .77 .73 .218 ,2 
7 ,31 .31 ,110 .13 ,77 ,209 .25 
1 ,31 ,31 ,110 ,77 ,105 ,218 .2 
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; ,223 ,51 .0 .0 ,0 ,0 
160 DATA ,72 ,73 ,73 .218 
.219 ,219 .74 .9 .13 .141 .27 . 
31 ,31 .159 ,13 .13 ,13 ,141 ,2 

7 ,31 ,31 ,31 ,110 ,13 ,13 .141 
,27 ,31 ,31 ,159 .0 

170 DATA ,72 .105 ,77 ,21B 

,251 .31 ,87 .13 .13 ,77 .218 
,219 .31 ,8/ ,13 ,77 ,137 ,219 
.27 ,31 .87 ,77 ,73 ,209 ,219 . 

219 .19 ,0 .0 ,0 ,0 
IBO DATA .72 ,73 ,73 ,21B 
,251 .219 ,74 ,105 ,77 ,218 ,26 
1 ,31 ,S7 ,73 ,73 ,209 ,27 .31 
,31 .87 ,9 ,13 ,77 ,218 .219 ,2 
19 .2 ,0 ,0 ,0 ,0 
190 DATA ,104 ,73 ,73 ,21S 

.219 ,251 ,110 ,13 ,77 ,209 ,2 
51 ,31 ,31 ,78 ,73 ,73 ,218 ,31 

,31 ,31 ,110 ,13 ,77 ,209 .219 

,219 ,51 ,0 .0 .0 .0 
200 DATA ,72 ,73 ,73 ,218 
,223 .219 .74 ,13 ,13 ,141 ,27 
,31 ,31 ,31 .110 ,13 ,13 ,141 , 
27 ,31 ,31 .31 ,78 .13 .13 ,141 

,27 ,31 ,223 ,19 ,0 
210 DATA ,72 ,105 ,77 ,218 

,219 ,219 .110 ,105 ,73 .216 . 
25] .31 ,87 .13 ,13 ,77 ,218 ,2 
51 ,31 ,87 .13 .77 .137 ,219 ,2 
19 ,187 ,0 ,0 ,0 ,0 .0 

220 DATA .40 ,45 , 4!> ,45 , 
213 ,63 ,63 .63 .55 ,45 ,45 ,45 

.173 .59 .63 .63 ,63 ,78 ,73 , 
73 ,218 ,219 ,219 ,74 ,73 .73 , 

218 ,219 ,219 .2 ,0, 
230 DATA ,72 ,73 ,73 .21 

8 ,219 .219 ,106 ,73 ,73 .218 , 

219 ,251 ,110 ,77 ,73 ,218 ,31 
.31 ,159 ,9 ,13 ,13 ,141 ,27 ,3 
1 ,223 ,19 .0 .0 ,0 
260 DIM Bl (IS) ,R2(15) ,R3{15) 
270 FOR I - TO 9: READ W(I): 

NEXT 
280 DATA 2.1.5,1. .8, .6, .4. .3 
,.2, .1,0 

300 G0SU8 310: END 
305 END 
310 HOME : HQB2 

320 DATA 54.20.40,20,40,40,5 
4.40,54,60,40.60.0,0 
3 30 DATA 60,20.60,60,74,60.7 
4,20.0,0 

340 DATA 80,60,80,20,94,20,9 
4.40,80.40,0,0 

350 DATA 114,20,100,20.100.4 
0,110,40,100,40,100,60,114,60,0 

,0 

360 DATA 120.60.120,20.134,2 

0.134,40.120.40.130,40,134,60,0 

,0 

370 DATA 154,20,140,20,140,4 

0,150 .40,140,40,140,60.0,0 

380 DATA 160,60,160.20.174,20 

.174,40,160,40.170,40,174,60.0, 



390 DATA 180,20,180,60,194,60 

.194.20,0.0 

400 DATA 210,20,210,60,0,0 

410 DATA 220,20.234,20,227,2 

0,227,60.200,200 

60 490 HCOL0R« 3 



500 READ X,Y 

510 HPLOT X,Y 

520 READ K.Y: IF X = AND Y = 

THEN 500 
530 IF X - 200 AND If " 200 THE 
N 590 

540 HPLOT TO X,Y 
550 GOTO 520 
590 HCOLOH- 3 
600 FOR I - 70 TO 150 
610 HPLOT 60,1 TO 210,1 
620 NEXT I 

630 HCOLOR- 0; FOB I - 80 TO 1 
40 

640 HPLOT 75,1 TO 105,1 
650 HPLOT 120,1 TO 150.1 
660 HPLOT 165,1 TO 195,1 
670 NEXT 
680 RETURN 

700 HOME : PRINT TAB C 15)i;-'SU 
PERFHUTT": PRINT : PRINT 
710 PRINT "VOCE COMECA COM $1. 

CADA JOGADA CUSTA DEZ CENTAV 
OS. O JOGO DURA ATE SEU D 
INHEIRO ACABAR." 

720 PRINT : INVERSE r PRINT "C 
ONTBOLES:": NORMAL : PRINT 
730 PRINT "<ESPACO>"[ TAB ( 10) 
;"GiaA AS RODAS/APOSTA" : PRINT 
"<:l>-; TABC 10): "LIBERA AS RODA 
S" 

740 PRINT "<2>" TAB( 10)"SEGUR 
A RODA ESQUERDA": PRINT "<3>" T 
AB( 10}"SEaUEA RODA DO MEIO" : P 
HINT "<4>" TAB( 10)"SEGURA RODA 

DIREITA" 
750 PRINT "<5>'' TABC 10)''EMPUR 
RA RODA ESQ. PARA CIMA* : PRINT " 
<6>'' TABC 10)"EMPURRA RODA CENT 
RAL PARA CIMA": PRINT "</>■' TAB 
{ lOJ-EMPURHA RODA DIR.PARA CIM 

A" 

760 PRINT "<8>" TABC 10)"EMPUR 
RA RODA ESQ -PAHA BAIXO' : PRINT 
"<9>" TABC 10)"EMPUHRA RODA CEN 
TRAL P/ BAIXO"; PRINT "<0>'' TAB 
( 10)"EMPURRA RODA DIR.PARA BAI 
XO": PRINT "<ENTEH>" TABC 10) "R 
ECOLHE PREMIO" ; 

765 PRINT : PRINT "<ESPACO> PA 
RA CONTINUAH " : 

770 <3ET A$; IF A3 < > • - THE 
N 700 

775 RETURN 

780 FOR A - TO 15: READ RICA 
) ,R2(A) .R3(A) : NEXT 
790 DATA 0,1,2,3,5,6,6,2.0,5 
,3,4,4,6,5,6,4,3,1.2,0.3.0.5,2, 
1.-5.6,5,1,0,6.6.1,4,3,2.0.1,5.3 
.2.4.6,6.6,4,5 
B20 RETURN 

4000 HOME : PRINT TABC 10);"V 
ALOHES PREMIADOS" r PRINT ; PRIN 
T 

4010 PRINT 'BARHA BARBA BARB 
A"; TABC 30) ;W(0} 

4020 PRINT : PRINT "BOLOTA BOL 
OTA BOLOTA"; TABC 3D);W{1) 
40 30 PRINT : PRINT "AMEIXA AME 
IXA AMEIXA"; TABC 30)iHC2) 
4040 PRINT : PRINT "MORAHGO MO 
RANGO MORANGO"; TABC 31);WC3) 




CUIDADOS ESPECIAIS 

Verifique se as tr§s partes do co- 
mando DATA ligadas aos objetos sao 
lidas na matriz correta. Se tentarmos 
colocar uma cadeia de caracteres de 
um comando DATA em uma matriz nu- 
m^rica, receberemos uma mensagem 
de erro, ou uma descripao curta onde 
esper^vamos por ums longa. 

Tenha muito cutdado ao combiner a 
ordem das partes do comando DATA 
com a ordem das matrizes nos coman- 
dos READ, pois o mesmo problema po- 
de Qcorrer. A ordem ^: posi^ao, descri- 
pao curta e descripao longa. 

Faga umi "teste de mesa" na sua 
aventura, depois de ter coiocado os ob- 
jetos, para verificar se eles aparecem 
nas posigdes corretas. 

Use seu mapa quando checar os ob- 
jetos, assegurando-se, assim, de que 
nao estS perdendo nenhum. 



PRINT 


"PERA 


C 31) 


WC4) 


PRINT 


"SINO 


( 31} 


MC5) 


PRINT 


"CEREJA 


AB{ 31) JWC6J 


PRINT 


'SINO 


C7) 




PRINT 


"CEREJA 


:M(7} 




PRINT 


"CEREJA 


RETURN 



4050 PRINT : PRINT "PERA PER 

A PERA" ! TAB 

4 060 PRINT ; PRINT "SINO SIN 

SINO"; TAB 

4070 PRINT : PRINT "CEREJA CEH 

E JA CEREJA" ; T 

4080 PRINT : PRINT 'SINO SIN 

0"; TABC 31) jW 

4090 PRINT : PRINT "CEREJA CER 

EJA"; TABC 31) 

410 PRINT : 

ABC 31) ;MC8) 

4110 GET AS: 

A primeira parte do programa, que 
vai da linha 10 a linha 230, cria uma ta- 
bela de figuras moveis no topo da me- 
moria do micro. Essa figuras sao os sim- 
botos das frutinhas, que podem entao 
ser desenhadas por intermedio do co- 
mando DRAW. 

As linhas 320 a 670 desenham a md- 
quina caga-niqueis na tela de alia reso- 
lugao (nenhuma fruta aparecera por en- 
quanto). As linhas DATA de 320 a 410 
sao usadas para escrever a expressao 
"SUPER-FRUIT". 

Uma tela com instrugoes destinadas 
ao jogador ^ criada pelas linhas que vSo 
de 700 a 770. Ouira tela, com os resul- 
tados que valem pontos, e escrita pelas 
linhas 4000 a 4100, 

Tres matrizes sao utilizadas para re- 
presentar as rodas: Rl, R2 e R3. A or- 
dem dos simbolos nas rodas e determi- 
nada pela linha DATA 790. 

No proximo artigo, as rodas serio 
colocadas em movimento. 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



PERIFERICOS 

Existem dois tipos de memoria auxiliar para micros: a fita cassete e o disquete. 
Veja como fazer a melhor escolha. 

aplicacOes 

Complete seu programa de agenda e calend^rio eletronicos e atualize as informacoes. 

PROG RAM ApAO BASIC 

Elipses, parabolas, hiperboles... Abandone-se ao fascfnio 
das curvas, mesmo que elas nao sejam as da mulher amada. 

PROGRAMACAO DE JOGOS 

Cinco gansos e uma raposa: um estranho jogo de 
xadrez no mundo dos animals. 




